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TWO-HEADED EDITORIAL INDEX 


Effective with this issue, the User Notes is operating 
with additional editorial and administrative help, which 
will enable us to keep to a more regular publication 
schedule. 

Since we are starting our year so far behind, we will 
publish the Notes on roughly a six-week cycle, which will 
have us caught up by the end of the year. 

The new help is in the form of Hoy O’Brien, who has 
been active with the New Jersey Computer Club for the 
past three years. Roy will be responsible for the admini¬ 
strative end of things, including handling the mail and 
subscription activity, as well as picking up part of the edi¬ 
torial function. 

Gene Beals will remain involved in the work of editing, 
and will also continue to operate the Tape Exchange 
Program. 

In the past year, .it has been very gratifying to see, in 
spite of the relatively meager documentation from 
Commodore, the emergence of sopl\isticated programs 
and routines for the_PET. It’s a remarkably potent little 
machine, and we're looking forward to further software 
development. 

At the same time, each month we hear from new sub¬ 
scribers who have just bought a PET, and are in need of 
beginner-level information to get up-and-running. 

To accommodate both the advanced and the neophyte 
PET ow ner. Gene and Roy are sharing the editorial work 
on the basis where Gene is mostly concerned with the 
advanced group, and Roy w ill see that the newcomers are 
not neglected. However, we work closely together, and 
mail may be sent to either one; the most important thing 
being that two people are (or ought to be) more effective 
than one. 

We are strong believers in the need for an independent 
forum for PET owners to exchange information and ideas, 
and publish their work. Although we are more than 
pleased with the number of people who have written and 
submitted items for publication, we would like to repeat 
that all material is welcome... re member, regardless of 
where you are on the experience curve, there are others 
who can benefit from your work, and vice-versa. 

Correspondence with individuals and PET groups is a 
vital part of this activity, and newsletter exchange is 
invited. If there is no group in your area, and you would 
like to start one, or contact other PET owners, send a post¬ 
card and we’ll print an announcement. If you have any 
questions, let us know—it’s a big help in trying to decide 
what to include in the Notes. 
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NEW COMMODORE PRODUCTS 

A QUICK REVIEW Gene Beals 


As most of you know by now, many of the new PET 
products are being delivered. My understanding of 
current status is as follows: 

PET 2001-16 is available in two models—one with a 
full-size keyboard (with cassette deck external and 
optional), and the other with the small keyboard and 
cassette built-in. Price is $995. 

PET 2001-32 is also available in the same two config¬ 
urations at $1295. 

The PET 2040 Dual Disk is available in limited quanti¬ 
ties at a price of $1195. A model 2040A was just 
announced (July availability) as a single drive version 
with the same cabinet and controller board at //$895. 
Addition of a second drive will be possible for approxi¬ 
mately $400. The previously announced 2041 Drive has 
been cancelled (the unit was to attach through memory 
expansion connector rather than IEEE as 2040 doej»). 
While the 2040 models will operate with 8K machines as 
well, the new ROM set to allow the connection w ill not be 
available until about July (the ROMs arc to be included 
in the price of the disk drive, however). 

PET printers should be available in May (the 2023 
Pressure Feed about mid-month at $849, and the 2022 
Tractor Feed at month-end for $995). The 2021 Electro¬ 
static Printer was cancelled. 

Aside from the outward appearance of the full key¬ 
boards, the new- models have a number of operational 
differences compared to the 8K unit. All the previous 
bugs and idiosyncrasies seem to be corrected, and addi¬ 
tionally there are several enhancements. 

Accesses (PEEK or POKE) to screen memory no 
longer generate snow. 

RND(0) and RND(l) appear to be seeded by the timer, 
since values are random w hen first called after pow r er-on. 

When lower case is enabled, the shift operates as on a 
standard typewriter (shift provides upper case). Case 
shift on The screen however, is a function of the character 
ROM. so that when going to an alternate device (a 
printer), upper and lower case are reversed. 

The signal which blanks the video on the 8K is not 
connected on the newer models, so POKE 59409,52 no 
longer works (ROM routines still use the address, 
however, causing a line scroll). 

NMI Vector is initialized to BASIC "warm start". 

When output is directed to an alternate device, the 
ASCII "space" code ($20) is used for all BASIC-supplied 
forward spacing. This means that TAB, and V' will 
provide proper spacing on your printer. 

PEEK address range is no longer restricted. 

Execution of some code seems to be slightly faster due 
to more efficient programming and better use of page 0. 

Screen print is faster because extra code to maintain 
separate POS pointer was removed. 

Cursor home, up, and down are now tracked properly 
by POS. 

Machine Language Monitor is in ROM. and the BRK 
vector is initialized to point to Monitor (SYS 1024 gets 
you there). The MLM code is a little more compact, and 
Save and Load have revised syntax. 


Operating system addresses for the new models have 
been changed extensively. Almost all locations in low 
memory (pages 0. 1, and 2) are different, with the 
exception of the cassette buffer areas. The new manuals 
which come with the PET 16 and 32 have a complete 
memory map for this area. 

ROM routines, w hile essentially the same, have been 
reassembled to incorporate changes and corrections. 
Almost all segments are in slightly different locations. (If 
anyone needs a copy of the revised ROM addresses, send 
me a note. I have a list compiled by Jim Russo in which 
the new locations arc listed in parallel with the old on a 
map previously identified by Jim Butterfield.) 

I’m certain many people will be slightly upset by the 
address changes in both low memory working storage 
and the ROM area, since many programs made extensive 
use of these locations. If you programs have decent 
documentation, address changes should be relatively 
minor. If you purchased some of the "commercial" pro¬ 
grams which are not documented or have deliberately 
unexplained code, you are at the mercy of the vendor. 

A few programs ^iU,be difficult to convert regardless 
of documentation. 

Standard PEI BASIC programs should run with no 
changes (PEEK and POKE into areas other than screen 
memory arc generally non-standard). If you’re still con¬ 
cerned, remember the admonition of the large system 
people: use only standard language implementations 
(i.e. FORTRAN IV, ANSI COBOL, etc.) unless you want 
to be hardwired to a particular piece of hardware. 

Several changes inside the new machines are apparent 
also. The revised main logic boards use dynamic RAM. 
The 16K uses 4108, while the 32K has 4116 (or equiva¬ 
lent) chips. Both boards are fully populated, and it 
doesn’t look as though you can upgrade 16K to 32K with 
a chip change. Video RAM is static and uses the 
MOS 6224 (2114) part. 

The memory port connectors are .1" on center 
\spectra-strip" style. Pinouts arc described in the 
manual (which has already been updated and reprinted). 
Two new power connectors are included on board to pro¬ 
vide power for "daughter boards". 

The 2040 Dual Disk appears to be quite powerful and 
flexible. Usable capacity is 171,500 bytes per drive 
(343,000 bytes on line). 

The controller incorporates a 6502 and a 6504, as well 
as 4K of static RAM (2114). The processors apparently 
watch over head, track, sector position, buffer manage¬ 
ment, and data transfer on the IEEE bus. 

My use of the disk to date has been limited to moder¬ 
ately simple operation—SAVE, LOAD, and sequential 
data files. Random Access file capability is incorporated 
in the 2040 design without leaving BASIC (a sample pro¬ 
gram is included in the preliminary disk user manual. 

One final note: Jim Butterfield suggests there be an 
"official" designator for new ROM machines, since exist - 
int PFTs may also be upgraded with new ROM. This 
would make it easier to annotate listings for programs 
using any of the changed addresses. 

Hope the review helps. Special thanks to Jim Russo 
for the stack of notes he sent, and for the new ROM 
address list. Again, if you need a copy of the Russo (new 
ROM)-Butterfield (old ROM) list, send a SASE and one 
boxtop from your 32K PET to Box 371, Montgomery villc, 
PA 18936. 
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PROGRAMS ON TAPE 


Partial list follows — send for conplete list. 

The "programs on tape" service and exchange functions as a 
low cost method for software distribution. The copying cost 
is SI per program. Ue can put up to 4 programs on a C-IO 
tape, or 12 on a C-30 tape. Please add *1 per tape (either 
C-IO or C-30) to cover tape cost and postage uithin U.S. or 
Canada. If any written documentation is available, a copy 
will be included with the associated pro-gran. 

At this tine we are behind on getting programs copied onto 
tape and returned to you. Ve just re-acquired a person Mho 
indicated Millingness to endure the drudgery of saving 
prograns, so we'll be catching up in the near future. 

If you have a program to contribute to the list (one which 
we don't have, or an updated or enhanced version of an 
existing progran), please send it on tape. Ue will save it 
for the exchange and return a progran of your choice. 

Again, due to space and tine limitations, only a partial 
program list (primarily some of the newer programs) is 
included. Urite us at PO Sox 371, Montgomeryvi1le, PA 18936 
for requesting programs and for the complete list. 

Among the new 2prograns are several by hark Zimmermann 
(Caltech 130-33, Pasadena,CA 91123). Some of these 
have been, or will be published in the various micro 
magazines. Mark granted permission to include the programs 
in the exchange -- but you might want to acquire the various 
publications for more complete documentation. 

TINY ASSEMBLER — Mark Zimmermann - Personal Computing 12/78 
MAZE MODULE -- Mark Zimmermann - inclomplete, but could be 
used as nucleus of game. 

GAS -- Hark Zimmermann - machine language module for physics 
simulation to be published in BYTE. 

GAS DRIVER -- Mark Zimmermann - BASIC driver for GAS. 

BLACKBOX — Nark Zimmermann - Parker Bros. game. Try to 

locate position of 3 balls in box by shooting probes into 
box. 

INTERNOD -- Bill Stinson - IH calculation program for hams 
or communication techs. 

ACTIVE FILTER — Bill Stinson - Design program adapted from 
IBM library. 

FREQUENCY COUMTER — Bill Stinson - Basic 3 digit counter - 
will include copy of Bill's interface and connection to 
parallel port. 

KLINGON CAPTURE — Nark Turner - grid game from KILOBAUD 
S1 NON — Gary Hayhuk - sound repetition game 
OTHELLO/2 — F. Dunlap. Modified by J Mendenhall 
DIGIT SPAM — number recall in sequence and reverse sequence 
for progressively long numbers 
CENTRAL LIMIT — Dave Heise - graphs results of repeated 
samples of any given size, showing averages tend to be 
normally distributed. 

CHI SQUARE -- Dave Heise - constructs repeated random 4-fold 
tables and computes significance test for each. Nice 
graphics representation of statistical values 
MONEY CHANGER -- Max Yoder - give correct change for amount 
shown. Basis of a good educational program. No graphics. 
BABY — Sally 8 Stan Klein - try to keep your sanity while 
feeding l diapering your baby yet have time to yourself 
SAN — R.Tansony - shoot down enemy planes from your missile 
base 

CHECKERS — Uilliam Anderson 

PET ORGAN -- Urn. Anderson - Sound plays 3 octaves of notes 
STARUAR -- John Ball - save planet from enemy fighter planes. 
10 levels of difficulty. 

LONG DIVISION — E Lichten-long division tutorial by grade 
level 

NEAT PROGRAN — Chris Crawford 

TANKS — E.Lichten - shoot Russian tanks which are faster I 
able to move through the nine fields 
FAIR OPTION VALUE— Joe Kot - Evaluate stock option prices. 
TRACE — Brett Butler-traces basic program or direct entries 
KEYBOARD — Neil Harris/J Butterfield - musical keyboard, 
will remember and play back tune 


MARKS — J Butterfield - keeps track of names and grades, 
shows low, high, and average. Keeps tape file. 

PORTFOLIO — J Butterfield - keeps track of stocks. Buy 
sell, evaluate, and save on tape. 

MERGE — J Russo/H Chou - ne'ge two or more program segments 
N7I71 — J Russo/H Chow - high monitor with merge capability 
IMAGE — P Rowe, modified by H Chow - save any portion of 
memory on cassette 

TINE/COORD — Adolf Futerwei; - for sky watchers, provides 
the necessary calculations to prepare for a night of 
observing or program planning. Uses 2 cassettes. NOTE; 
this has 2 prograns J extensive documentation and will 
cost 43 instead of 41. 

DEBUG — E Blaschke - poses a programming problem regarding 
floating point calculation, asks you to debug, and 
provides solution (if you give up). 

MTAA71 — Jim Russo - excellent version of high monitor and 
disassembler with single itep capability. 

ASSEMBLER — Mark Zimmerman - quick assembler with tape 
object code save and load capability. 

BLACKBOX — Steve Michel modified from Creative Computing - 
guess location of atoms in space 
QUARTIC — U.Hawes - solves quartic, cubic, and quadratic 
equations. 

BAIRSTOU -- U. Hawes - solves Nth order polynomial equations. 
COHPLINEQN -- U. Hawes - solves linear equations with complex 
coefficients. Uses a modified Gauss-Jordan elimination 
method. 

TANK UARS -- Ralph Dressier - 2 player tank fight game. 

EXAGON — Mac Ogelsby adapted by James Parsly - puzzle game 
for you to learn by playiig. You against the Computer. 

SAND PILE -- Mac Ogelsby adapted by J.Parsly - try to get 

a sand pile level without losing any sand. 

LINE MAZE -- Frank Tyniw - adaptation of Andy Fraley's short 
maze with sound. An obstacle course one player game. 

AFO — Japanese program with phenominal graphics and 
animation. 

TOKER — anonymous Michigan User (of PET) - excellent 
graphics. This program will be an underground classic. 
SOUND DEMO — CAP Electronics - program is an advertisement 
but still a nice demo for CB2 sound. 

ARROU — J Butterfield - in Volume 1, Issue 7 
ELEMENT DRILL — Richard Larson - intro for beginning 
chemistry students on element abbreviations 
IONIC DRILL — Richard Larsoi - for beginning chemistry 
students on chemical symbols and ion charge. 

FILE 8 SORT — enhanced version of filing and record 
retrieval system. 

BASE — F Campbell - convert from one base to another 

STICKS ON HILL — super graphics demo 

OPTICAL ILLUSION — super graphics demo 

1000 MILES — F Covit 2 - computer version of Hille Borne. 

It's very addictive. 

ORDINARY DIFFERENTIAL EQUATIONS-1st 8 2nd ORDER — Karlheinz 
Lehner - computes approximate ordinates to the solution 
curve given boundary values by a Runge-Kutta method 
KNIGHT'S TOUR -- F Chamber* - solution to classical chess 
puzzle, PET graphics and animated gimmicks 
PETALS AROUND THE ROSE — Urn Rothanburg - clever puzzle 
FRACTION — Don Johnson - educational game to teach 
fractions 

TI FIGHTER — with sound 

TAPESTRY — Frank Chambers - pattern generator using 
a couple of the symbols hidden in lower case. 

PINBALL -- Bruce Jaeger - good graphics and sound. 
DISASSEMBLER — Karlheinz Lehner - Disassembles machine code 
in KIN (NOS Technology) assembly language. 

CALENDAR -- Ernest Blaschke - draws a calendar of any 
month I year from 1904-20*9. 

UNIT CONVERSION — Ernest Blaschke - converts weight, 
distances, time, pressure, tempurature (metric or 
imperial) 
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Letter from Frank Covitz 

Dear Gene, 

On January 21, 1979 at approximately 3 pm, 1 wit¬ 
nessed what may have been a unique event. For the first 
time. 1 believe. I saw a demonstration of the capability of 
controlling individual pixels on the PET screen!! 

As you know, the PET screen normally allows a display 
of 1000 characters, each within an 8 x 8 pixel matrix. This 
comes out to a display format of 320 horizontal by 200 
vertical pixels, or a total of 64,000 pixels. However, 
because of the way the operating system manages the 
video (IK bytes of screen RAM plus character generator 
ROM), the user can only access by characters available 
on the keyboard. 1 have often thought how desirable it 
would be to have control over each of the 64,000 pixels. 1 
can now state that it can be done!! 

The key is an elegant piece of hardware called "visible 
memory" (VM) designed by Hal Chamberlin and Dave 
Cox of Micro Technology Unlimited (MTU) - the same 
people who gave us the 6502 4-part harmony music soft¬ 
ware and DAC/filter/audio amplifier board. The VM is 
essentially an 8K dynamic RAM board but with the 
following feature - During the phase 2 part of the clock 
cycle (when the 6502 does not use the address bus) the 
dynamic RAMS arc refreshed and at the same time a 
video signal is generated. To the 6502, the system be¬ 
haves like 8K bytes of RAM. However, the video signal 
(when displayed on a monitor) allows the user to see 
every bit of every byte. Unlike the PET internal video, 
the VM does not have any "snow" on it during read or 
write operations. 

The VM. at present, needs an interface card to get the 
proper addressing and to permit the use of the PET video 
monitor with VM. The January 21,1979 date mentioned 
above was the day 1 brought my PET to MTU head¬ 
quarters in Manchester, NH. After Hal Chamberlin got 
a look at the PET circuit board with a 'scope, he was 
quickly able to put together an interface breadboard 
which compatibilized the VM to the PEI’. The VM can be 
turned on via a hardware switch or, better yet, under 
control of an unused I/O port. This allows software to 
select either VM or PET video. The people at MTU are at 
present designing a finalized board for interfacing PET 
with VM. They may very well have this completed by the 
time this letter gets out, so I would definitely write them 
for info and pricing. Their address is: 

Micro Technology Unlimited 
P.O.Box 4596 
841 Galaxic Way 
Manchester. NH 03108 

With care, the VM and interface can be fitted inside 
the PET. 

MTU’s hardware and supporting software is, as far as 
I am concerned, superb. Although designed mainly for 
KIM-1, their products should run on most 6502 based 
products, i.e., the PET. If their PEI' market grows, they 
will undoubtedly consider PET-specific hardware and 
software. 


With a little bit of programming effort, I have already 
converted Hal Chamberlin’s VM Life software to run on 
the PET. including the clever demo where the word 
"Life" is drawn on the screen and the system then 
applies the Life algorithm to it. A winking cursor, cursor 
control keys (including CLR). pause, and return to 
BASIC arc supported in the PET modified version. Each 
generation takes about 4 to 6 seconds to complete, super 
fast when you consider that 64,000 bits arc involved!! 

With the PET being a video oriented machine, I pre¬ 
dict that VM will open up a whole frontier in software - 
games with true animation, high rcsoltution graphics, 
special character fonts, etc. Please spread the word. 

F. Covitz 


Ed. Note: The Visible Memory and interface Frank 

describes were exhibited by MTU at the Trenton 
Computer Festival and really drew a crowd, including 
some surprised and curious Apple owners. With this 
add-on. you can run high resolution graphics or return to 
the regular PET character set and have an additional 8K 
of RAM available for programs. MTU s ad on p. 23 gives 
an idea of what this display can do. —O 'B 
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Now... 

Inexpensive.. 
hard copy; from 

Commodore PET® 




•the sigma PI-1 interface couples 

A STANDARD PET TO THE S0UTHlHEST < 
PR-40 PRINTER DIA THE IEEE PORT/ 

•HO ADDITIONAL CABLE DR PLUGS AREl 
RETIRED IF THE PRINTER HAS BEEN] 
BUILT TO PLUG INTO THE SOUTHUESTi 
6!00 COMPUTER SYSTEM ^ 

— $3995 


*FULLY ASSEMBLEV 

•postpaid 

*SATISFACTION 
GUARANTEED 


SIGMA ASSOCIATES 
BOX 2065 


uiiiU*un 


I (. PR1NCET0 


PRINCETON NJ 08540 
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FULL LINE OF PET PRODUCTS-INTRODUCTORY SPECIALS 


PET 8K $695 

PET 16k (UN) $860 

PET 52K (52N) $1125 

The 16K N and 32K N have a lull size keyboard and numeric 
pad wilh graphics on keys Additional sockets provided on 
board lor 8k ROM expansion Machine language monitor 
in ROM 

Please add UPS snipping ona numonce on PEI pioducls 


PET ExternaI Cassette $83 

Use as a second cassette for any PET model, or as primary 
cassette for 16K or 32K models 

PET DuaI Disk Dnivr (2040) $1T25 

Total of 343K bytes on two standard 5 25" disks. For use with 
any PET. Attaches to IEEE Port. 


SOFTWARE FOR PET 


TUNNEL VISION ancJ KAT & MOUSE $7 95 

Two excellent maze programs In Tunnel Vision, you view 
the maze from inside m perspeciive In Kat & Mouse, you 
musl lind your way Ihrough the maze betare the hungry 
KAT finds you Each maze has only one solution, and 
each is unique Bv Michael Riley 

KITE FICHT & SIMON $7 95 

Kites is a completely original 2 player action game with 
its own unique strategies Includes 4 pages on real Indian 
Fighter Kites By Michael Riley 

TANK BATTLE in machine language $6 00 

Provides a random battlefield wifh trees, lake, walls, and 
6 to 8 character tanks. Laser cannons can tire over lakes, 
bounce off walls, destroy trees, and explode tanks. 

By Michael Riley 

TRAP (SOUND) in machine language $5 00 

Build a wall around your opponent and force him fo 
crash OPTIONS Diagonal walls, wrap around and 
invisible walls. By Michael Riley 

CmC WORD PROCESSOR $24 95 

The best available word processing software for the PET 


MICROCHESS by Peter Jennings $17 95 

Offers 8 levels of play to suit everyone from beginner to 
fhe serious player. II examines as many as 6 moves 
ahead. 

BRIDGE CHALLENGER $13 45 

You and the dummy play 4 person Contact Bridge 
ogams! fhe PET The program deals hands according to 
your criterion for high card points. You can review tricks, 
swap sides, or replay cards afte' each hand. 

STIMULATING SITUATIONS $13 45 

Dr C W. Engels book ol 10 interesting simulation games 
wifh complete documentation, instructions, and 
suggestions for modification and enhancement. 

All programs on cassette 


GRAPHICS UTILITY PACKAGE 


$13.45 


ABTAPEI S8 00 

Includes Life. Biorythm. Othello. Mastermind II Multiprimei 
(math tutorial-deduction game), and Capture. 

ADVENTURELAND $795 

This is not the overage computer game that you master 
within the hour. In Adventureland you wander thru various 
rooms’ manipulating objects to lind ’treasures’ using 
2 word commands By Jett Jessee and Scott Adams 
REQUIRES 24K MEMORY 


BOOKS & ACCESSORIES 


BASIC foR Hovn CowptiERs-Albrechl. $5.95 

Finkel, Brown Now programmed instruction book on 
MICROSOFT BASIC 

HancJsOn BASIC witIi a PET Pockham $10.95 

Beginners book with easy to follow step by step 
approach to programming. 

StimhI ATiftf| SimulATioNs — Dr C W Engel S4 00 

6500 Pnoc,RAMMiNc, ManlaI $6.50 

MOS Technology 

6500 HarcJwarc ManuaI $6.50 

MOS Technology 

HcwUrT-PAckAud IEEE—488 StANdxRds $1.50 

Manual 

PRoqRAMMiN<j a Mic roc oMpuTi r:6502 $8.95 

Caxton Foster 

PET IEEE toRS 232or 20 ma printer $59.50 

interface by GPA—Assembled and tesled. 

Selectable baud rates 110-1200. Connectors included 

Protect-A-PET S9.95 

Cuslom lilted clear vinyl dust cover with quality stitched 
seams tor those rare occasions when you’re away Irom 
your PET 


Cassette Tapes 

Premium quality high output, low noise in 5 screw 

housings with labels. Boxes separate 

C-10 (5 min'side) 10 $595 50/S26 

C-30(15 min/side) 10 $7.00 50/S31 

ALL TAPES GUARANTEED 

Soft plastic boxes 

Norelco-style hard ploslic boxes 

PET Edqt Connectors 

Second Cassette Port 
User or IEEE-488 Port 
Memory Port—solder eyelet 
solder tail 


100/548 
100/$57 

10i$1.00 

IO'SI.25 


$1.60 

$2.25 

$4.45 

$2.95 


VcRbATi* 5.25 " diskcTTEs For PET 10/528.50 

Godboui S- 100 8K StatIm RAM -assembled $139 

S-100 16K Statk RAM (Problem Solver Systems) $279 

BETSI PET to S-100 Interface Motherboard $149 

Four slot motherboard-On board sockets and decoding 
circuitry hardware with tour 100 am edge connectors. 
Assembled. 


BETSI KiT —one S-100 connector 

Power Supply for BETSI and static RAM boards— 
8 volt/6 amp Assembled in case 


S119 


34 


KIM-I Includes manuals and documentation 


$161 

$238 


SYM-1 Synertek Systems—expanded 6502 
single board system 

Prices induce C**S jhipptng (except wheie noied) lor prepaid orders over $10 


HeatIi H14 Tractor Fted Printer $745 

80. 96. and 132 characters per line. 6 and 8 lines per 
inch, baud rotes to 4800 with multi-line buffering 


A B COMPUTERS 


115 E Stump Road Montgomeryville PA 18936 (215)699-8386 
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ACCOUNTING PACK 1 - 

Accounting Pack 1 is a general ledger package 
designed for small businesses and homeowners 
u contains check journal, genera' ledoer. income 
statement (current ytd, provious month ytd and 
current month). Balance sheet (current month and 
previous month). There are 15 commands and 6 
reports that can Be generated The system uses an 
unique single-entry bookkeeping systom and can 
hold up to 50 entries per period (month, week, day I 
and up to 40 different accounts. Each period's 
data is Kept on convenient cassette tapes Utilizing 
the general ledger command the user can view the 
general ledger entries tor the month from Assets 
to Expenses or stop in midstream and view one 
particular account. Or the user can type in an account 
name such as Advertising" and view the entries 
for that month. The Accounting Pack 1 program 
includes a checkbook reconcilatlon routine whiQh aids 
in finding checkbook errors. Sawyer Software plans 
updates to Accounting Pack 1 to enable the user to 
use a printer, floppy disk or more memory. Account¬ 
ing Pack 1 is well documented, with a newly updated 
User s Manual. Several businessmen are using 
Accounting Pack 1 and have written to us their 
satisfaction with the program along with their 
purchase ot other software 

. $25.00 


SCHEDULE PLANNER - 

Schedule Planner can be used by secretaries, 
receptionists, housewives or anyone wanting to plan 
and have at their fingertips their own schedule Data 
entered is data, time, priority and description The 
commands allow the schedule to be shown for a 
particular day, request of time or the '■viewing" of 
appointments according to importance 
.$15.00 


Business Software for your 8K PET 


★ ★ ★ NEW ★ ★ ★ 


ACCOUNTING PACK II - 

Accounting Pack II is a much moro powerful version 
of Accounting Pack i it has all the features of 
Accounting Pack I, plus up to 250 entries per period, 
MENU, Optional debit-credit of entries, easy addition 
or deletion of accounts, formatter for reports, intelli¬ 
gent report generator and single entry for sales 
transactions Accounting Pack II requires at east 8K 
additional memory for your PET. OPTIONS. 1 
Accounting Pack I to Accounting Pack it data file 
converter |free to previous owners of Accounlinc 
packl). 

..$45.00 


BUSINESS ANALYSIS - 

Business Analysis allows management lo have 
available to them information for financial planning 
decisions Up to 4 years of balance sheet and income 
statement information can be entered with resultant 
analysis in the areas of liquidity, leverage, profit¬ 
ability and activity. The ratios generated for each 
year are the: current ratio, acid test, debt-nw 
profit-nw. profit margin, sales-rec. sales-inv. 
sales-wc. with a briel explanation of each The 
growth analysis gives the yearly growth in 5 areas 
and the average growth in b areas Future growth 
analysis projects liguresfor the next year. 

. . $30.00 


PAYROLL- 

Esceciaiiy designed with the small Businessman in 
mind. Utilizing cassettes can roccrd data for any 
number of employees (8 employees per cassette) 
Computes tax information and updates totals for 
quarterly and yearly reports Employees can be 
salaried or hourly and pay periods can be either 
weekly. Di-weekiy. seml-mbntniyor monthly. 

$30.00 


BUSINESS GRAPHIC PACK 1 - 

Business Graphic Pack 1 is a simple program to use 
out professional m output. The graph includes title, 
labeling of axis, dual graphic ability whether the 
data is m Mill's, IOC's or 1000‘s, and an optional 
x-axis = date and labeling ot tne x-axis with month 
and yoar Entry is as oasy as typing the title. 0 of 
entries, the X.Y value (Jan. 15. 1978 would be 
entered as 115.78), entering if the x-axis - date, if 
the user wants crosshatching and then graphing 
The program also mcludos Nth order and Goomotric 
regression to give the user a formula for his set of 
data (if possiDle). 

. $25.00 


CHECKBOOK RECONCILIATION - 

Designed for ease of use and to find those trouble¬ 
some checkbook errors, this program balances your 
checkbook and bank statement from month to month 
It locates over ten different types of errors and 
instructs the user on correcting tnem. including bank 
statement errors made by your bank Records data on 
cassette for next month s balancing - saving re-entry 
of figures. 

.. $25.00 


SCHEDULE PLANNER 02 - 

Schedule Planner 02 includes all the features of 
Schedule Planner, but is usod lor one or more 
individuals. Utilizing Schedule Planner #2 a customer 
can call in asking when his appointmont with Dr. 
Jones is and in seconds the receptionist can give the 
date and time Or Dr. Jones can find out his schedule 
for the day. With the viewing command, an appoint¬ 
ment at 12:00 on a particular day will display on the 
screen at that time allowing receptionists and 
secretaries to validate appointments. 

•.$ 20.00 


COMING SOON - 

Business Software for your 16K TRS-80. Write or call 
for dotails and availability. 


FINANCIAL PACK I — 

Financial Pack I includes Amoriizauon Schedule. 
Calendar (which figures days between two dates). 
Rebate (which is calculated cn the Rule of 78's). 
Compound. Annuities and Monthly payment 

. *15.00 


CHESSBOARD - 

Chessboard allows two players to play cness on your 
own PET graphic chossboard This program displays 
each player's time and records each move to allow 
you to playback the game at another time. 

... - *15.00 


CALCULATOR - 

Especially for the accountant-bookkeeper. This 
program not only allows your PET to (unction as a 
calculator, but also has such features as Lister (which 
verities and displays errors between two tape listings) 
and Matrix (which adds columns vertically and 
horizontally). 

. $10.00 


All Programs include documentation, are in BASIC 
and on cassette. 


Dealer inquires invited. 


’PET is a trademark of Commodore Business 
Machines. Inc. 


Sawyer Software 


201 Worley Road 
Dexter, Mo. 63841 
314-624-7611 













CONTROLLED RESTORE 


ANNOUNCING 

THE 

commodore 

PET 

personal computer 

Now A vailable in the Washington D. C. Area From: 
The 

enmPUTER SYSTEmS STORE 

TYSONS CORNER VA. NEAR HOLIDAY INN 
1984 Cham Bridge Rd , McLean. VA 22101 
703 821 8333 

" A FULL UNE COMPUTER STORE SALES SERVICE SOFTWARE ' 


WATCHING A CASSETTE LOAD 

Jim Butterfield 

Ij may not be too useful, but it’s very satisfying to 
watch a program coming in from cassette tape. Much of 
what comes in will look like gibberish, since the program 
contains obscure things like pointers, flags, and tokens. 
But it’s interesting to see. and here's how you can do it. 

Step 1: Load any Basic program on cassette 1. The 

program doesn’t matter; the LOAD activity sets up cer¬ 
tain internal things that will help us. 

Step 2; Set up the cassette with any Basic program 
ready to load. A short one would be good; that way you 
may catch the whole program on the screen. But any 
Basic program will do. 

Step 3: Set graphic mode with POKE 59468.14. This 

may help you spot a few recognizable pieces of your 
program. 

Step 4: Give SYS 62894. PET will ask you to press 

PLAY. Do so, and in twenty seconds or so, PET* will 
report FOUND...and stop. 

Step 5: Clear the screen so you’ll get a better view of 

the program as it comes in. Now move the cursor down 
to a few lines from the bottom of the screen. 

Step 6: Enter POKE 636,128:POKE 638,132:SYS 62403 

Step 7: Sit back and watch the program load to the 

screen. You won’t be able to run it. of course, since it’s 
in the wrong part of memory...but isn’t it fascinating to 
watch? 




Earl Wuchter 

This routine will reset the DATA pointer to the beginning 
of any DATA line. It is useful when some data state¬ 
ments are to be read more than once from different 
places in a BASIC program. To use the routine, set RS = 
the desired DATA line number, and GOSUB 6000. A 
word of caution: since the line number is a BASIC con¬ 
stant, it will not be automatically changed if the program 
is resequenced. The sample program shows how the sub¬ 
routine can be used. 

10 REM SAMPLE PGM USING CONTROLLED RESTORE 

20 READ A.B.C.D.E iPRINT A:B:C|D|E 

30 DATA 1,2,3,4,5 

40 DATA 41,42,43,44,45 

50 READ F.G.H.I.J .PRINT FjGjHsIjJ 

60 RS-40 .GOSUB 6000 

70 READ F.G.H.I.J .PRINT 

80 END 

6000 IF reEK(l42)+l6*PEEK(l43)>=RS THEN RESTORE 
6010 FOR J=0 TO 5 «SV%(J)=FEEK(J+142) .NEXT 
6020 READ J$ 

6030 IF PEEK(142)+16*PEEK(143)<RS GOTO 6010 
6040 FOR J-0 TO 5 'POKE 142-J,SV#(J) .NEXT 
6050 RETURN 

Output. 12345 

41 42 43 44 45 
41 42 43 44 45 




PET 2001-8 Computer--Standard PET with integral cassette and calculator type 
keyboard. 8K bytes of memory. (7167 net). $ 795.00 

PET 2001-16N Computer--PET with 16K bytes of memory and large keyboard with 
separate numeric pad £ graphics on keys. External cassette optional. 

(15,359 net) # $ 995.00 

PET 2001-16B Computer--As above but has standard typewriter keyboard. No 
graphic keys. $ 995.00 

PET 2001-32N Computer--Identical to 2001- 16N with 32K bytes of memory. 

(31,743 net). $1,195.00 

PET 2001-32B Computer--Identical to 2001-16B with 32K bytes of memory. 

(31,743 net). $1,195.00 

PERIPHERALS 

PET 2021 Printer--80 column dot matrix electro-static printer with full PET 
graphics capability. S 549.00 

PET 2022 Printer--80 column dot matrix printer with plain paper or forms 
handling tractor feed. Has full PET graphics. $ 995.00 

PET 2023 Printer--80 column dot matrix printer. Plain paper printer with full 
PET graphics. $ 849.00 

PET 2040 Dual Drive Mini Floppy Disk--Dual drive intelligent mini floppy 
system. 343K net user storage capacity. $1,095.00 

PET 2041 Single Drive Floppy Disk--Single drive intelligent mini floppy. 

171.5K user storage. $ 595.00 

PET External Cassette-Cassette player/recorder to use with PET 
2001/8/16/32. $ 95.00 

PET User Manual--160 page expanded user manual. $ 9.95 

MICROTRONICS M-65 Ham Interface—Wired $ 99.95 

--Kit $ 69.95 

SOFT-WARE 

V-1-- CANNON BALL- -Requires 2 players. Each calculates the angle and velocity 
of a cannon ball dependent upon wind and terrain conditions (which change each 


3D TIC TAC TOE--Requires 1 player vs. the PET. The board consists of 4 layers 
of 4 x 4 boards. BOTH $ 5.95 

V-2-- WEATHER WAR --Requires 2 players taking alternate turns directing various 
types of storms against their neighbor's house. Correct calculation of storm's 
angle (and type) destroys a house in part. 

BINGO- -For 1 to 4 players. Four different Bingo cards are put on the screen 
and the PET calls out the numbers. BOTH $ 5.95 

V-3-- MISSLE RANGE--Requires 2 players, each player taking alternate turns firing 
a misslc at a group of targets. Angle of misslc is under players control. 
AW'ARI- -Requires only 1 player playing against the PET. Awari is an ancient 
African game in which the player and the PET move a group of stones around 
a board consisting of 6 bins on each side. BOTH $ 5.95 

V-4-- SPIN TO WIN- -Requires 1 to 9 players and the PET (if you want it to). 

Each player takes a turn at stopping the spinning roulette-type wheel. 
BATTLESHIPS- -A famous naval game requiring 1 or 2 players. Each player 
places his/her naval fleet on the board while other player looks away. 

BOTH S 5.95 

V-5— DOG RACE- -Requires 1 to 9 players. A game consists of players placing 
bets on 5 different dogs that race two laps around the track. 

MASTERMIND- -Requires 1 player. PET selects a number and you try to guess 
correct digits and their positions. BOTH $ 5.95 

V-6-- HOMEWORK- -Lets your child practice against the PET. Addition, subtraction, 
multiplication, and division--all ran on one program. For students who need 
practice on higher numbers. $ 5.95 

ALL STOCK ITEMS ARE PREPAID IN LOWER 48. ALL ITEMS U.S. FUNDS. 

VARITRON 
Box 729 

Chinook, MT 59523 
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ANNOUNCEMENTS 

So that everyone knows my biases, I work full time at 
A B Computers in Montgomery, PA. A B Computers 
sells PET computers among other things. Since the PEI' 
User Notes were not commercially oriented, I have made 
every effort to keep my two activities separate. I hope I 
haven’t disappointed anyone, and that 1 have been mod¬ 
erately objective during the past year. My apologies for 
not having been as responsive or as timely as 1 should 
have been with the User Notes. Thanks to everyone for 
the support extended. I’m sure the Notes will be more 
effective with Roy involved. —G.B. 

Don Henderson, Box 604, Westminster, CA 92683 
announced an adaptor to allow a 2114 to be used in place 
of a 6550 RAM. The adaptor works for video RAM loca¬ 
tions only (switch your video chips to bad 8K locations 
and use the adaptor) unless you build a decoder (Don has 
a PC board for this also). Price assembled is $6.20 in¬ 
cluding postage. 

ASM/TED, Macro Assembler and Test Editor for 
PET, Apple II, or SYM was announced by C.W. Moser, 
3239 Linda Drive, Winston-Salem, NC 27106. The 
machine language package occupies 8K of memory start¬ 
ing at 2000 hex. 

Dave Gomberg, 7 Gateview Court, San Francisco. 
CA 94116 is offering a PILOT package containing lan 
guage processor, editor, simple program, teachers 
manual, and reference card for SI 2. Also available for $8 
is a PILOT tutorial. 


Chris Crawford, Pleiades Game Co.. 202 Faro Avenue, 
Davis, CA 95616 has developed TANKTICS, a sophisti¬ 
cated simulation of World War II armored combat (you 
command a force against the PET). The package comes 
with instruction manuals, machine language and BASIC 
program cassette, battlefield map and playing counter, 
and costs $15. 


LAS VEGAS PET USERS are looking for members. Infor¬ 
mation can be had by contacting: Home Computers, 
1775 E. Tropicana, Las Vegas,NV (702) 736-6363, 

To all PET owners in and around Salt Lake City, UT in¬ 
terested in forming a PET Users Group contact Dee 
Husted. 4634 Eskesen Dr., Granger, UT 84120 966-0879. 

Richard T. Tabbert, Glendale, AZ, would like contact 
with other PET users in Phoenix area. Contact him at 
5014 W. Puget Ave., Glendale. AZ (602) 931-4544. 

Northern Virginia PET User Group now called CAPE 
(Capital Area PET Enthusiasts); meeting 2nd Saturday 
each month at Patrick Henry Library, 101 Maple, Vienna 
VA.Contact Bob Karpen, 2054 Eakins Ct., Reston, 
Virginia 22091 860-9116. 


- S1QQ EXPANSION 


Pe-raBKBVSTBMlrom CGRS provides both o FLOPPY DISK ond 
on SI0O ADAPTOR for the PET I The Floppy Di»l ollowt the Pet to 
inrtontly load and love program* and information. The SI CO Adaptor 
allows the Ret owner to me the extensive variety of SICO peripheral 
Loardi; Memory, I/O, Voice Generator*, Analog I/O, Printer*, ard 
even Telephone Interface Card*. 

PCT3ISK met the standard IBM 3740 lornor. 

(read disks item other systems II 


PETDISK: 


. MINIFLOPPY DISK DRIVE - 80 kb 

■ 

EXS100 DISK CONTROL BOARD 


PACKAGE 1 J 95 DISK HOUSlN C- POWER SjPFtY 
KM 3 - WILSERV SOFTWARE PACK 
Option 1 - Built in SI0O mainframe :*95.00 
Option ? - Software on EPROM : *60 00 

ggP- e ottembeled ond tested. 
otBXCQMTnoL board Connects to the PET memory expansion port. 


•PET it a trademark ol Commodore. 


$ 299 95 ° Floppy Disk Controller ond 

Fptorr. socket, along with room for a 
coeplete S100 Adaptor. 
m F'or- WILSERV INDUSTRIES. Allow* you to 
softwark Save. Run. Lood. ond Update orogrorr, from 
the disk. Disk Command*,executed directly 
or from a orograr*. «*• exltling BASIC format 
preceeded by o special character string. 

CGRS MICROTECH 

P.O. BOX 3SB SOUTHAMPTON, PA. 
■eiM-r CB1BJ 757-OSB4 1BB8S 






■icasmoducts 

• lr«ow«*t? 

• awi# 'iw!a.". 


SPECIAL 

12" Video Monitor 
for SORCERER 
($299 value) 

ONLY 

$125 with 8K unit 
95 with 16K unit 
65 with 32K unit 


,t*IOY ^ 

I N FoitUO! 
ir.OcJK aid Nomtfi 

II 9AM loom CO 
S*-a1 .»« fw»l o 


• 30 > W Wik»- 

• S ICO Cow01. 

• U in* M«i <»wkwi 

• xo. si j «%<;..*»->. 

tn-r Horn «M »« B«l» IMUlii 

u* progtr-o m «cm rac cav<*t« m 
Mm ‘I'fMfi iinofl^noM i.»» API 
10301 PllOt.f OFTfAS Hi M4«or 

|I0> •'! >•>• M Comflva ian»jla 


PRINTERS • PRINTERS • PRINTERS 


• -6 O' 32K Oyle* s&ffi, 

Oynamic t-AM • im RCJM^^ 

Cporatmg System 

• upper Lj«ve< Case ami 

Grapnct 

• full Site Bus now Kaynoa'd 

• Full Soft’ CO'i r*g 

• Ope'anrg system wli Siipocit 
mult pie l anai-agas (BASIC 
resident i 

• Macime Language Monitot 

• fiK BOM E«oaision Sockets 

• « CRT ——>. 


BUSINESS 

COMPUTER 

IMS AI 


ail small Ixmress 
I'obioms A variety 
it icitware is 

/aiUWi* for .ill yoi.r needs T 

CS »C'«V5 include duo' Hoppes 3?K RAM 

O DOS BASIC 

PCS-4? 40CKB 53295 

PCS 44 ,780KD 53995 

DP-42 senes adds wOeo lerrmnai Key- 

oar a and Vi 0 toatsove 

VDP 42 S«995 • VDP-44 55595 

VDP 90 J7995 


RADIO SHACK • PET • SORCERER • 
APPLE • COMPUCOLOR • ETC. 


Tr«H COMPUTER FACTORY S .r.leiisiv* CENTRONICS . 
•iHftntoiy and wide setprtion nt computer axiom <Paraii*i) 
ponies 30tu'OS you Of imdmg mo pnnioi AXIOM <Sr*ui| 
Oni suiteo tor your needs ard 


51095 

445 

520 


TRENDCOM . 
Specifications The following punters work INTEGRAL DATA 
well wilt* all known personal computes OUM£ or DIABLO 


INTERTUBEvideo terminal 

Full screen eating 24 x aodisp*^*'"' 

and microprocessor 
controlled 


M Min Credit Card V7S 
Order $75 1 . 

MV residin'! ado 8°. sales ta« • Same day 
shipment on prepaid ana c'cOn card orders 
• A<30 S5 Shipping lor computers S3 lor 


The 


TO ORDER CALL TOLL FREE 800-223-7318 


COMPUTER FACTORY 


—_ aw A 

Q PERIPHERALS 

fl 

R FOR PET 


■ •?!« MlOT)i,t(Mrw" 

UOi 

1 • **K Memory C*P3r^.on 

293 

■ •K'e • m HS^J7 ser.il 

’6? 

■ ‘^Wa. ;.>'.ai 2 om-„ i vtior i 1 

■ • Mn-lom floircl *<y PfT 

u75 

1 • A-ialcg so Digital Ek/d'C 


■ Forte Dev ces 

275 

■ • Sncond Cassette Dnve 

95 

• Parallel P'micr inter law 

•99 


$1495 Complete! 

16K Model add $200 
32K Model add $500 

Compucolnrll 

COMP-JCOLOR II DisK Baseo Model 3 
Advanced nardware and software technology 
gi»e» you 

• O' Coux Display 

• Advanced Color Graphics 

• 51K Dish 8utll-in 

• 16K ROM Operating System 

• 8< RAM User Memory 

• 4< RAM Refresh 

• 8060A Micocompuier 

• R5-232IO 

Every u ot comes with an exienced DISK 
BASIC that has Ml li e mamgrunml capa- 
Dility resident in tne COMPUCOLOR H m 
t6K 01 ROM Color is laniastiC Dul COM- 
PUCOlOR II has iho power to handle com 
p«* 'asks a<-c small Business application 

An impressive softwa'e notary suppenenis 
your own creativity 


BILLINGS MICROSYSTEM 
EXPANDABLE TO jkfCM/f 
2 MEGABYTES IV t W! 

feature* • 320 x Storage 

• 12' CRT • Graphics 

• 64K RAM • 94 Keys 

• 2-SO • 3 RS-332 ports 

• Dual mini floppy • 1 parallel port 

BUSINESS SOFTWARE AVAILABLE! 


PHI il 

4PHI accmjirr., coitsud loi-pirr 
weir mm BASIC ACM lull ASC P 
•r-rtnnr • « i^nm.»H milard <wimj 
t.rWMiMcaax 

M**ie 11 On» 

AintSOM, nkOV «04 

5171 


mu 

S I4.»> 
512135 


SUPER SOFTWARE 

Word 

ProcMaing 
For PET 

This super advanced hill tuner on program will allow 
you to create tout from PET or terminal keyboard 
• INSERT • DELETE • CENTER • UNDERLINE • 
FULL SCREEN EDITING • MOVE LINES OR 
BLOCKS • SAVE TEXT ON TAPE • AUTO PRINT 
FEATURE J4S 

Applet 

Moving 

Averagi 

Mot 

Program 

This fanlatlic orogram ditb allows lha dalidicen, 
mflirie'iiaiuni Irsder in stocks, money C« 
ccKTvnocitiei. tne adlly to maintain 30 database 
aenas of up to 300 values and plot 3 difteront moving 
averages of a series at me same llrrw. in 3 diflereai 
COO'S Files car Be upcatoc. aeletea, cnangao 
•xiended. elc 

A sure value dmk at only 540' 

Word Processing For Apple on disk. »so 


pe-r 


DUAL DRIVE FLOPPY 
DISK 2040 $1295 

■ 360 K 8yio< Storage 

• Hign Speed Oara T.anslB' 1 

• Puas mto IEEE Fort A 

• 6504 Mcrooroceieor I 

• -- .-'j'.. 

• 6< ROM tncoor’Q ana ^ 


Decoding 
4< R*M 

Uses Single or Dual need 

Crshcttcs 


SINGLE DRIVE 
FLOPPY UNIT 
2041 $895 

• mirxiigenl mm. Happy 

• «71 5K act user sicagc 


SALE 

Come In Or Call For 
Special Low Prices 

WE’RE MOVING TO 
- LARGER QUARTERS 
AND MUST SELL 
> EVERYTHING IN OUR 
INVENTORY 


euow Q-uroason 

law in ana pounce me <-*• »u* 

• ASClICcd* 

• ISrch^o.' 

.-^.nwu,cw.v-e-..-, si 095 

• UK >•>#«.« *.| fCT 

• "•non im tell 4WU-II' Stria 

• CoiteMiMi Ktl.rt.irte a. A J Cline 

• 5e-.ut n :i«aoi Cl<B ^1133 


TO ORDER CALL TOLL FREE 800-223-7318 


46tn Si 


TLav r*riR/IDI ITLD CAPTHDV 485 Lexington Avenue 750 'n ra Avenue Newt vor» <\i v 100l 7 
« IIW L/UIVIlU I Ol iMw I vyllT (212) 687-5001 (212) PET-2001 u nreign orde' desk T eip> 640055 

























ROM SUBROUTINES 


Mark Zimmermann 

In order to hinder their competitors' efforts to rip off 
their excellent BASIC interpreter, MICROSOFT (and 
Commodore) have not released any significant informa¬ 
tion about the BASIC used in the PFT microcomputer. If 
one wants to write machine-language programs which do 
floating-point mathematics, one apparently has to write 
all of ones own routines. This is not only hard to do; it 
also wastes space in RAM. and is particularly frustrating 
when one just wants to call a simple function available in 
BASIC. 

In this note, I'd like to share some addresses I’ve dis¬ 
covered in the PET ROMs which arc useful for executing 
single-argument functions: SOR. RND. LOG, EXP. etc. 
I’d also like to make an appeal for information from 
readers who have figured out how to do two-argument 
(dyadic) functions such as +,*,/, and 1 . 

As most PET machine-language users know by now, 
MICROSOFT BASIC stores floating-point numbers using 
32 bits for the fractional part and an 8-bit exponent, with 
a trick to include the sign bit in the fractional part. (See 
PEOPLE’S COMPUTERS, Vol. 7, No. 2 (Sept.-Oct. 1978) 
pages 16-19 for a more detailed description.) When 
doing calculations, numbers are moved to the page zero 
"floating accumulator" in memories B0-B5, and the sign 
bit is unfolded from the fractional part. BO holds the 
exponent of the floating-point number with 80 added to it 
(128 decimal added); the binary fraction, normalized to 
be between 1/2 and 1, is stored in Bl, B2. B3, and B4, 
with radix point at the left; and bit 7 of B5 is the sign bit 
of the floating-point number. 

If a user-developed machine-language program uses 
the same format, puts a number into B0-B5, and then 
calls a PET ROM subroutine, when control returns from 
the subroutine the result of the function called will be re¬ 
turned in the floating accumulator. That’s all one needs 
to know to use the table of ROM subroutines which 
follows! 

For example, to calculate exp(-u 2 ) via ROM sub¬ 
routines (for nonzero u) the following sample assembly- 
language program will do the trick: 


JSR DB2A 

}ABS(u) 

JSR DBBF 
CLC 

LDA -#1 

ADC BO 

; LOC 

STA BO 

^adding 1 to exponent doubles number 

JSR DEAO 
LDA *FF 

EOR B5 

;EXP (bo now we have u*u) 

STA B5 

;flip sign bit 

JSR DEAO 

RTS 

;EXP(u*u) 


If this program is called using the USR(U) function, 
the PET’s BASIC will set up U in the floating accumula¬ 
tor for you, and will re translate and store (or print, or 
whatever you want) the result for you after control leaves 
the USR function. Unfortunately, it turns out to take 
about twice as long to calculate exp(-u 2 ) this way as it 
does to just define a BASIC function: DEF FNG(X) = 
EXP(-X*X). The problem, of course, is that to square u, 
we used the LOG and EXP functions instead of simply 
multiplying u*u! So, if anyone can tell me where to find 
and how to use the simple floating-point operations like 
addition and multiplication. I’ll be most grateful!! 

I found the addresses given in Table 1 while prowling 
through the PET’s ROMs. In particular, the code follow¬ 
ing address CCB8 which evaluates BASIC expressions 
led me to a table following address BFDE. As many of 
you probably know, PET BASIC stores key words (such 
as EXP, COS, ASC, etc.) as single-byte "tokens". 
(Table 1 includes the hexadecimal values of the tokens in 
column 4.) PET’s BASIC doubles the value of the token 
(throwing away any carry) and puts that into its Y 
register. It then looks up the address stored in BFI)F+Y 
and BFDE + Y. That’s the address of the function sub¬ 
routine to be executed! 

I’d like to acknowledge the help of Jim Butterfield, 
who compiled token lists and gave me a wonderful 
disassembler. 

Copyright © 1979 Mark Zimmermann 


rn rm simoujinis - - iaol* i 


function 

Addreei 

DaclMl 

Toktc Dec in. 

SO* 

[BOB 

5607$ 

V. 

180 

OT 

DROP 

5622? 

*5 

181 

ASS 

ta?A 

56106 

IE 

18? 

USR 

0000 <:> 

0 

17 

183 

rs£ 

B26V 

31660 

•a 

184 

ros 

B2*5 

53093 

»9 

105 

*7* 

DE2». 

M86* 

IA 

106 

BD 

DFVS 

snsT 

IB 

107 

LOG 

D81F 

6SV87 

BC 

18B 

EXP 

DUO 

5699? 

ID 

189 

COS 

DP9E 

5TM.6 

IE 

190 

SIN 

WAS 

57*53 

IF 

191 

UN 

wu 

57326 

CO 

192 

AIN 

lOUB 

STAla 

Cl 

193 

rux 

DOM 

5501V 

cr 

19V 

LZM 

DG&fc 

5V 86* 

CJ 

195 

ST»| 

D5W9 

6V089 

CA 

196 

V»L 

D6SS 

SV9IT 

CS 

197 

ASC 

D6SJ 

5V88S 

Cf 

198 

ouu 

DSCl 

5V 72V 

C7 

199 

LEFTJ 

D508 

5V7W 

ca 

200 

RICHT* 

DSOfc 

5V78B 

C9 

201 

MIL* 

0601 

5V79* 

CA 

202 


Two otD«r uietui wtrouiiMi, com«»r of sniiKx * roc: 

D<A7 (03*15) convene floatin*-p«lni to l«t«ftat in 13, 8* <hl*h, lov) 
D27I (*3880) convert! integvr In A, Y to floatmg-polot 


(if any of the reduced listings can’t be read, send a continued. 

couple of stamps to Box 379 for full-size copies.) 






PET BCK SUBFOJTIMES - - Kar» 2;n»enn*r.n. Callact 130-25, raaa«*ni. (A 9112: 


S l coolcnH S*§ F» -«/? 
IB BO anpoftcnt.80 83 II 

19 01 fratiloa MSB AO C9 

U B? frac. byl# 18 Of 

M B5 frac. byta 3 5l H» 

BC BU Brace io* LSB 59 A3 

BO BO algo CO IP 

BE aim coaparlaoo FF 

BF rmmAolf byta 00 


Bukhara in hr* below tt. 1 * line 


fiSif- •"« t auit !>• call.O vich S in 

oooo U»<r) Be -id, also coopailacn an to (lb) EOR (BD). 

026 S OS P aod (BO) la A 

CED9 S BKD P 
rBE(P) 

Kib ros(P) 

03*9 STB» 

D* CJ» CUBS 

D50B LEMS CooBtanfa In flnatloi (carjal aignl Delation 

wen. ncirrf zoiU i/fc 

06OF XIU| 0013 1/2 

D65b 1XN EOlA mf! 

0663 ASC (SIC a 

0615 VAL 10 IF 2. 

D€«fc PEEK 
0728 S - P 

D73C JSB D9b£, tbeo S . t 
D73F S . P 
07AC noraa’.laa P 
DOir 100(Pt 

08FD JSR D95E. chan S • t 
D9GO S • P 

DISC [AtlO«l|(3, aapaiat ids also, aat algo uapailaar, lalun with (10) In A 

wu. s / r 

0A1U (A.100Y1-F, aaparatin* algn 
OAAC roundoff <P) K» 100Y1, aargl-s alga 
DACE S-f 

DADE P>S, wit) round a* 

DAFI P«S, wlthnul roundleg 
LAID roundoff(P) 

DA/D SGH<r)-«A 
0808 SCN(P) 

DB2A ABS(P) 

DB9E 1HT(P) 

0E26 SQ«(P) 

DE2E S t P 
DEAD EXP(P) 

Drib uoiri 
DF9E COS(P) 

OFAS SIH(P) 

CFE£ TAN(P) 

EO*8 AW (F) 

Thanka to Urn Buttaifiol 4, Cana laala* Pe7 OSEt CKOJP, and Still IOC for halpfol data. 


Cooataala In flnatloi (sorgo! algn - ' rotation 
Hoi’ll 1/b 
0013 1/2 
EOlA a/2 
COIC a 
10 IF 2a 


a, ratuen with (10) in A 


coaveialona: DO*/ /-lot agar la B3,B*» |10CBi«Bl| 
0378 Intagar la A,Y (lOU.r) - P 


MACHINE LANGUAGE GUIDE 

NOW AVAILABLE in a single source from 
ABACUS SOFTWARE is a comprehensive guide to 
the inner workings of your PET Computer. 

This guide will show you how to access many 
of the operating system and BASIC routines 
from a machine language program. 

Learn how to use: 

* input and output routines from the 
keyboard and video display 

* clocks and timers for high precision 
interval measurement 

* floating point arithmetic and number 
conversion 

* builtin arithmetic functions 

* machine language subroutine linkage 
and hints from BASIC programs 

Available for §5.95 from ABACUS SOFTWARE. 
VISA/BA or MASTERCHARGE cards are accepted 
if you include your card number and expir¬ 
ation date. Postage paid in U.S. 

ABACUS SOFTWARE 
P.0. BOX 7211 
GRAND RAPIDS, Ml. 49510 


QUALITY SOFTWARE FOR THE PET* 


•PET is a product of Commodore Business Machines, Inc. 


What does quality software mean? First, it means programs that work the way you'd like 
them to, easily and naturally. It means internal operating instructions and internal 
documentation, as well as system design and modular construction to ease modification 
or maintenance. Finally, quality software is provided on quality tapes (and with MICRO 
SOFTWARE SYSTEMS, it means a quality, hard plastic case for the casettel). 


Ma*y addeA -Geafures ... kids tovt «4 ! 

Y SWEE-PING" a simple but captivating 
bouncing-ball game The number of ways it 
can be played is limited only by the imagination 
of the player. old price. $5.95 

METRIC-CALC™ turns the PET into a powerful 
stack-operated Rpn calculator with scientific 
functions, metric conversions. 20 levels, 

20 memories. Too rv>ucV 3 -to drscr.be. $ 7.95 
w r ;+e -for £lyer / 


jjk peputar-.. • SUPER ! 

"CHEQUE-CHECK™ end the hassle in getting 
checkbook and bank statement to balance. 
Review or change entries, verify checkbook 
line-by-line. Even wives use it! $7.95 

MEM-EXPLORER™ can be combined 
automatically with existing programs, shows 
exactly how and where they are stored in 

memory Described in The_Paper 

articles, by Roy R>usci*iec.kec. $7.95 


^ BOSINCMHIH NOTE? Compare 4 VnIs <rov-«+i*\ur >us display fot-W C.o*\ oT A Siv^V* *A ! 
C rBILLBQARD'" lets you type message up to 254 characters (incl pause, flash), which is then displayed 
in 1" letters moving horizontally*Repeats continuously. No static, snow. Good sales display! $49.95 

•* You se+ -H%c -foo. 

MICRO SOFTWARE SYSTEMS Send check or money ord., AMow 

two weeka tor chock to clear. VA residents 

P.O. Box 1442, Woodbridge, VA 22193 add 4% tax. Dealer inquiries Invited. 
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MACHINE LANGUAGE ROUTINES 
FOR FAST GRAPHICS 

Warren Swan 

Now you BASIC programmers, don't go flipping past 
this article. The machine language routines in this 
article do not have to be understood to be used. They 
merely let you do some things with your PET's display 
screen that you cannot do as fast in BASIC. 

There are five machine language routines presented in 
this article. They consist of routines to 

toggle the screen on/off bit to turn the screen off 
or on 

- fill the screen with any requested character 

- inverse every character on the screen so that un¬ 
reversed characters are reversed and reversed 
characters arc unreversed 

- scroll the screen down one 40 character line, 
instead of up 

- swap the screen memory with IK of RAM that is 
rendered inaccessible to BASIC, including the 
current graphics mode swapped with the stored 
graphics mode in the swap area. 

A BASIC loader program, which can be used to load any 
machine language routine anywhere in unused RAM. is 
also presented and used to load the package of graphics 
machine language routines. 

Listings 1 through 5 arc the assembly language pro¬ 
grams for the five routines. All routines hut the Screen 
Filler routine are called from BASIC via the SYS com¬ 
mand. The Screen Filler (listing 1) is called via the USR 
command. 

To use these routines, type in the relocating loader 
program in listing 6 and RUN it. It will ask you where the 
base location at w hich you wish to load these routines is. 
Most likely, you will want to load them in a protected 
area of memory such as the buffer area for the second 
cassette recorder if you don’t use one. If you wish to use 
the second cassette buffer, enter 826 for the base. If you 
want to load them at the top of memory and keep them 
from being mutilated by BASIC, execute the following 
statements: 

POKE135.PEEK(135)-l:CLR 
PRINT PEEK(135)*256+PEEK<134) 

Then RUN the program and enter the number printed by 
the second line above for the base. 

At any rate, the loader program will load these rou¬ 
tines into memory and print the absolute location that 
is the starting address of each routine. Write these loca¬ 
tions down for later use. Ignore the PAGE and BYTE 
columns for now. 

To use the Screen off/on routine, simply use SYS 
NNN; where NNN is the location you wrote dow n for this 
routine from the loader. When this command is exe¬ 
cuted, if the screen was on, it will turn off; if it was off. it 
will turn on. This routine can be used to turn off the 
screen while forming a graphics picture that you don’t 
want the user of your program to see until it is finished. 

To use the Screen Filler routine, simply use 
A = USR(NNN); where A is some dummy variable you 
don’t mind having cleared by the routine, and NNN is the 
character number of the character you want to fill the 
screen. The routine will instantly fill the PET's screen 
with the desired character. If you are not familiar with 
the "character number" to which I refer, these are the 


numbers (0 to 255) which you can POKE into the PET’s 
screen RAM to display them. To find out what all 256 
character numbers arc for, execute the following com¬ 
mand line: 

FOR L=0 TO 255:POKE L + 32768,L:NEXT 
This routine can be used to fill the screen with a given 
character as a background to a graphic display. Or it can 
be used to create dazzling displays that cause the screen 
to appear to be moving. 

To use the Screen Inverse routine, simply use 
SYS NNN; where NNN is the location you wrote down for 
this routine from the loader. When this command is exe¬ 
cuted, the screen will be "inversed". That is, every 
unreversed character will be reversed; and every re¬ 
versed character will be unreversed. This routine may 
be used to cause a graphics picture to flash or blink. 

To use the Screen Scroll-down routine, simply use 
SYS NNN; where NNN is the location you wrote down for 
this routine from the loader. When this command is exe¬ 
cuted, the lines of the screen will scroll down, just as 
they would scroll up when printing off the last line of the 
screen. This routine can be used to move entire pictures 
on the screen down, and with help from the PRINT state¬ 
ment, up. 

To use the Screen Swapper routine, simply use 
SYS NNN; where NNN is the location you wrote down for 
this routine from the loader. The first call to this routine 
is only used to set up pointers and clear the "save area" - 
the memory locations that will contain the contents of the 
screen that are swapped into it. After the initial call the 
user must execute a NEW or CLR command. Otherwise, 
BASIC will continue to store strings in the save area. 

The Screen Swapper routine may be used to create 
"moving" pictures. This is done by printing a graphic 
picture on the screen, calling the routine to swap it into 
the store area, printing another graphic picture, and then 
repeatedly calling the Swapper to swap back and forth 
between pictures. The Screen off/on routine may be 
helpful here, so that the "drawing" of the pictures is not 
visible until after they arc done. 

Now you 're probably still wondering exactly how you 
can use all these routines to draw some really spiffy 
graphic pictures and animate them (unless you’re super 
imaginative). So to help get you started, listing 7 is a 
demo program that uses all of the routines to show them 
off, even though I’m not particularly imaginative when it 
comes to graphics. 

Need any more fast graphic routines? Drop me a line 
and let me know. 1 should have some free time this 
summer... 

Warren Swan 
15933 S. Grove Avenue 
Oak Forest, IL 60452 

also, just a quick explanation of the relocating loader pro¬ 
gram. All data is read in as string. Any string with a V" 
at the right is taken as a routine name and is printed out, 
followed by the absolute location that the routine will be 
loaded at; followed by the page number and byte number 
for this location (e.g.. location 826 (decimal) is at page 3. 
byte 58 because 826 = 3*256+58). 

A number string is converted to a number and loaded 
at the next location (starting from the BASE initially). If 
a number has a '** attached to the right, it is added to 
the most recent routine starting address and the two byte 
address so formed is loaded into the next two locations. 
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CONNECTICUT microCOMPUTER, Inc. 

150 POCONO ROAD BROOKFIELD. CONNECTICUT 06804 
(203) 775-9659 


SYSTEMS 


New Product Announcement 

PETMOD (PETSAVR) 

Analog to Disit^l Converter Aciaeter Moduli 
for tMe CCDMMQDQRE PET 


r RS-232 
L MOD 


RS-232 

INTERFACE MODULE 


GPI8 

MOD 


b 


GPIB (IEEE-468) 
INTERFACE MODULE 



UUUUU{ 

Qanamani£ ] 


ANALOG 

MANIFOLD 

MODULE 


SENSORS 

• TEMPERATURE 

• VELOCITY 

• PRESSURE 

• db 

• pH 

• ACCELERATION 

• HUMIDITY 

• LIGHT LEVEL 

• FLUID LEVEL 

• ETC. . . 


The DAM SYSTEMS 1 6 channel Analog Input Module* the 
AIM16* can now be directly connected to the COMMODORE PET 
using the DAM SYSTEMS PETMOD* This system provides very easy 
to use and low cost analog input for the PET* Joysticks* 
potentiometers* temperature sensors* accelerometers* pH 
meters* etc* can now be connected to the PET with minimal 
effort. 

The PETMOD Plugs into the PET IEEE port and PET user 
port. The PETMOD then has available two PET IEEE ports and 
one user port in addition to the DAM SYSTEMS port* 

The PETMOD is also called the PETSAVR * Once plugged in* 
it can be left in* and the PET owner can use the IEEE and 
user ports on the PETMOD saving the fingers on the printed 
circuit board of the PET from becoming dogeared. 

The PETMOD sells for $49*50* 
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low byte followed by high byte. This is used to load 
absolute adresses given as offsets within the current 
routine. 

If a number has a '!" attached to the right, it is added 
to the BASH address and the two byte address so formed 
is loaded into the next two locations. This is used to load 
absolute addresses given as offsets to the BASE location. 

The signal for the end of data is the character 
followed by a number which is added to the BASE 
address and the two byte address is stored in locations 1 
and 2 for the USR function. 

Copyright © 1979 by Warren Swan, Oak Forest, IL, USA 


LISTING 1; Screen eff/on routine. 

'■BASE 

AD'IK 2*2TCK LEA »E3H 1 Load 'MALI*. 

4906 BOR *Ot ■ Flip bit 3 (screen control). 

8D11ES STA ISfi'i 1 ! Store 'P1AL1*. 

STS 


LISTING 2: Screen Filler routine 
•.BASE-9 

20/710 FLLSCN JSP IDDA7 ! 

AOOC LEY *00 « 

8..2C SIS 123 ! 

AP6C LEX *180 ! 

A5Sn LEA IK. i 

862- KXTFAC STX |21 ! 

912C NEXT STA (S20),Y 

C5 IKY ! 

rOFB B ST NEXT ! 

K I NX 1 

ED6*. CFX *(3<4 ! 

SDFi BN£ NXEiAG ! 


LDA 1020’ 
ECH Hit': 
BE, WAIT 
RTS 

or change BE, 
»£ "AIT 


1 Get integer parameter. 

! Initialize offcct. 

! screen pointer lo* byte. 

! Screen address his?.. 

« Get parameter (Character s). 

• Screen pointer high byte. 

’ : Store character in screen. 

: Next location. 

! tod of cage? NO: Reteat. 

• YES: Next page. 

’ Finished lent page? 

! N-: IX? next page. 

! Noe cooes several cpticnt: 

! Return imoediately. 

: Test 'Key presaed' location. 

! If eo Key pressed 
! THEN wait fer key tc be presses. 

I ELSE return. 

WAIT to BNE WAIT: 

! TREK return, D.SE wait for key t; 
' be released. 


Screen Invar*# routine, 
’s BASE-1.0 


1KVRS 

LDX 

*S8D • 

Screen address high. 


LDY 

*C0 1 

Initialize offset. 


STY 

121 I 

Screen pointer low byte. 

NXTFAG 

STX 

122 I 

Screen pointer high byte. 

NEXT 

LDA 

(121).T 

! Get character f-os screen. 
Flit bit 7 (rvs/un-rvs bit) 

EOP 

*S8D 1 


(|21J,Y : Store character back tc ceraet. 
! Next location. 

REXT ! tod of page: NO: Receat. 

! YES: Next page. 

*19!, ! Finished laet paga? 

XXTPAG ! RG: Et next page. 

! YES: Return. 


A: Screen Scroll-down routine. 
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SCPD*K 

JSP 

SWITCH 

Turn off screen. Bote SUZ TCH=BA3E. 

A02S” 


LDY 

me 

Initialize offset. Dectinatior. i* 

642c 


STY 

122 

40 bytes beyond source. 

ADOO 


LDY 

HOD 

Set uc source pointer 

8420 


STY 

62D 

low byte. 

AOBF 


LDY 

#IBF 

1 Start 6 last char, of 2nd to last 

A263 


LDX 

a»53 

! line. Address high. 

8621 

NXTFAG 

STX 

»21 

! Store pointers’ 

8623 


STX 

«23 

! high bytes. 

El 20 

NEXT 

LDA 

( 120),Y 

1 Get aource byte. 

K“ 


STA 

(»22).Y 

! Put in deetinetion location. 


DEY 

! Nezt byta. tod of pag«7 

COFf 


CPY 

f* FT 

! (l.e.- have we gone past zero?) 

ion 


BXt 

mr 

! KG: Next byte. 

CA 


DEX 


! YES: Next page. 

K>?r 


CFX 

#I7F 

! Last page floocC 

tt)E; 


SHE 

HXTrAG 

! NO: Do next page, 

! YES: Reset offset to 39 (oecicai) 

A02? 


LDY 

s& 

A9E0 


LDA 

! Load accumulator with ASCII space 

9120 

CLP 

STA 

< 120) ,y 

! Clear top line of screen. 

88 


DEY 


: Next byte. All 40 bytee done? 

lOFr 


BFL 

CLR 

: NO: Clear next location. 

4C 


JKP 

SWITCH 

: Turn on screen and return. 


Pointer to source location: 

120 121 


Pointar to destination location: 
122 123 

Lly) | 28|S3 I 


(if any of the reduced listings can’t be read, send a 
couple of stamps to Box 379 for full-size copies.) 


LISTING 5: Screen Swap routine. 


•«£ASE*108 


A200 

SWAP 

LDX 

DOO 


A993 


LDA 

*14? 

Load flag value. 

FOOL 


BE4, 

SKIP 

If not firat tine through, 
aklp initialization. 

4557 


LDA 

187 

Load high byte of politer to top 

3B 


SEC 


of Beacry. Subtract off 4 pages 

E90n 


SBC 

g04 

(IK bytac) of naaory and 

635? 


STA 

187 

restore pointer, BASIC nov hae 
access to IK less nencry. 

A90C 


LDA 

*12 

Set initial default 

eiS6 


STA 

(186,X) 

eoda te graphsca. 

20..— 

SKIP 

JSP 

SWITCH 

Turn off acreen. 

Aise 


LDA 

(186,X) 

Swap current 

AC4CEe 


LDY 

IE84C 

graphics aode 

fa.c-6 


STA 

IE84C 

byte with previously 

56 


T1A 


stored graphic* 

6156 


STA 

(!86,X) 

node byte. 



LDY 

166 

Save area pointer loe byte 
(should always be 1, unless bad 


IKY 


6420 


STY 

120 

■eaory chins). 

e622 


STX 

122 

Screen area oointer loe byte (zero). 

ACOO 


LDY 

*00 

Initialize offset. 

A6e”» 


LDX 

187 

Save area high bvte (also coir ter 

Sic' 


STX 

S21 

to tot of weeory). 

A2EC 


LDX 

*580 

Sereez area pointer high byte <S80). 

6£2.’ 

NX TP AG 

STX 

123 

Set uo for next p#6« tc acrccn. 

eu 

EXT 

LDA 

(I20).Y 

Get stored byte. 

4e 


PRA 


Save temporarily. 

E122 


LDA 

(122).Y 

Get acreer. byta axd 

9120 


STA 

(120).Y 

atore it in save area. 

te 


PLA 


Fecall stored byte 

5122 


STA 

(122).Y 

and atcr* it ie screen. 

C6 


IKY 


Next byte, tod of page? 

D0F3 


BSE 

NEXT 

KO: Do next bvto. 

E62 1 


INC 

•21 

YES: Increaeat nolnters tc 

16 


IPX 


next page. Finished last carc? 

(last cage of acreen la » St3CC): 

BD5. 


CFX 

#S8w 

DOLi 


BSE 

KXTPAG 

KO: Do next naga. 

AD—- 


LDA 

SWAP-3 

YDS: Get flag again. Print it. 

20D2FF 


JSR 

IFFD2 

(Firat tine it is ’clear acreer.’). 

8C_ 


STY 

S4AF«3 

Zero flag for subsequent calls. 

4C- 


JNF 

SWITCH 

Turn on screen and return. 


Toe first tlee the uaer call* Slip (wia the SYS ccanard) it init¬ 
ializes the Top-cf-Kemory pointer tor BASIC and clears out the 
■ave area. It than awaps the current acreer cor.tenta with the save 
area and sets tn« graphic# node tc graphic# (not lower case). 

After the first call to SWAP, tte uaer supt execute a HE* cr CLP 
ccczard *c that BASIC will not put string data into the aa-e area. 

KLT.\ # “*: Ihis cofle nay not be uaed in Read Only keccrics, 11 is 
"lrrure code* which aodlfie* itself. 


L1STIBG 6: Relocating Loader for Machine Language Routines 
in BASIC. 

0 RD! PACKAGE LOADER VERSION 1.1 • GRAPHICS 1.4 RAC BY WARREN L. SiAU 
1978-1979 

10 lNPU?"£jRASE:";RASE 

20 MTAS*1TCH/, >73,17,232.73.6,11.1,17.2}2.96 

30 DATASCREEN FILLER/,32.167,208,160.0,132,38,162,128,165,*80,>34 

,33.H5,32 

LC DATA200.208,251.232.224.>32.208.244,96.3.2.73.255,240,249,96 
30 DATASCREEN INVERTER/.162,126,160,0, '32.33.'34. >4,‘77,33.73,’25 
.’45.33.200 

60 CATA2Oe.247,232.22A,132.2O6,240,96 

70 DATASCR3LL DOWN/, 32,0!, 160,40, 132,34. 160,0, 132.32, »60,191, '62, ljl 
,134.33,»34 

eo DaTA33,i77,32,i45,34«*36,i92,235.208,247,202.22a, 127,206,c36,16C 
.59.169.52 

90 DATA)A5,32,156.I6,2>1,76,0! 

lOO DATASCREEN SWAP/, 162,0,169.147,240,11, '65.' 35.56.253,1., «33. ’35 
,169.12.'29 

110 DATAl>.,32.0!,161.134,172.76.252.1*’*76.232,152.129,1>A,16A,13A 
.200,132 

120 DAT*32,134,34,160,0,166,*33.’34,33,*62,128,134,35.'77,32,72,177 
.34,145 

130 DATA32.>04.145.34.200,208.243.230.33,232,224,132.20C.234,173,3*. 
,32,210 

140 DATA255, 140, y. 76,0! 

950 DATAI.EXT AVAILABLE LOCATION/,*,? 

ICOD toBA:lsC:PRINT"£p ^3A5E:BA TAB(30)"PACE BTTZ££ 

1010 BE*W*:IFN»-’’#*’THENRI*I*:R.BA-K:G0SUB20CO:P0KE1.L:FC*E2 < H 
: GOTO 1080 

1020 N.VAL(N»):Ri.RIGRr»(N6.1):lFRf-'7' , TH2NB-B*l:l-0:N.B:GOSUB2000 
; GOT01060 

1030 3FRM"*‘THE1fN-N*B:GOS0B2OOO:POKEB*l.L:P0KEB-I*1,H:l-I*2:GOT0101O 
1040 3FRt»"1"THQ1N-N*BA:0OSIIB2OOO:POKEB-l.L:POKEB-I-1,H:I*I-2:G0T01010 
1050 POKDB-I.K:I«1-1:GOTO1010 
1060 KaLEK(NS)>1 :IFN 23THENN.2S 

1070 PR1XTLEFTKHl.N) , ’:"B"gJ,"IAflO0)K"£l"TAB(34)L: PRINT: GOT010*0 
1080 PF1X7"USF:"».B-BA"BYTES TOTAL":END 
2000 B«IST(N/236):L-»-H*256:2ErUP:. 

Z2 It clear serter, £$ 1« curaor down, £2 la cursor left 

(listing 7 on p. 19) 


LO 


SINGLE-STEP TRACE ROUTINE 

Jim Russo 

MT6671 is a machine-language monitor program in¬ 
corporating a single-slep trace feature. It occupies 
locations 1A00-1FFF, and is started by SYS 6671. It 
includes all the commands of the Commodore Monitor, 
plus a Disassemble command and a Trace command. The 
R command is used first to set-up the registers and pro¬ 
gram counter. The T command executes just one in¬ 
struction of the user program, then displays the new 
contents of the registers ( SR,AC,XR,YR,SP,PC ) fol¬ 
lowed by the instruction at the PC and its disassembly. 
At this point the user may depress the RVS key to con¬ 
tinue at about 2 instructions per second, the SPACE key 
to continue as fast as the PET can print the registers, the 
less-than key to step through one instruction at a time, or 
the STOP key to return to the monitor. A sample trace is 
included as Figure 1. 

Notice that the instructions are displayed before they 
are executed. If you wish to change the flow of a pro¬ 
gram, you can STOP, use the R command to modify 
registers, or the M command to change memory, and 
then the T command to resume tracing. 

There are some limitations on the use of the trace. 
Page zero locations OA-22 and 40-47 are used, so beware 
of conflicts with the program you’re tracing. Interrupts 
are used to step the program. If the user program 
changes the interrupt vector (219-21A) or the interrupt 
enables, the PET may crash. 

The major portion of MT6671 is the Commodore 
Monitor, relocated to 1A0F-1D6A. It also includes the 
6502 disassembler program, which has been around 
longer than the PET, at locations 1E00-1FE3. The part 
w hich I contributed is the trace feature, which includes 
little bits of code tucked in wherever there was room. 

The execution of a single instruction is accomplished 
by setting the interval timer in the VIA to interrupt dur¬ 
ing the instruction. When the interrupt occurs, the PET 
saves the register contents, and jumps through the inter¬ 
rupt vector (219-21 A) back to MT6671. 

To illustrate how this is done, I have patched a simple 
single-step routine onto the Commodore Monitor. A 
complete listing of the Monitor is in the PET MANUAL. 
The patch is shown in Figure 2. 

The routine which recognizes commands is modified to 
include T (498 and 76B-76E). When the T command is 
recognized, the interrupt vector is changed (776-77D) to 
point to 795. The interval-timer interrupt is enabled and 
the 60Hz interrupt disabled (780-785). The timer is set 
(78A-78F) for the period of time necessary to execute the 
remaining instructions in the monitor up to the RTI 
w’hich effects the jump to the user program. The the GO 
routine in the monitor is used to load the registers and 
jump to the user program. When the interrupt occurs, 
control returns to the subroutine call at 795. A ROM sub¬ 
routine is used to restore the interrupt vector and inter¬ 
rupt enables for the normal 60Hz interrupt service. Inter¬ 
rupt is turned back on (798), a bit set so the monitor 
won’t decrement the PC (799), and control is returned to 
the monitor BRK routine which displays the registers. 

This illustration program doesn't have all the features 
of MT6671. but it does illustrate how the task of control¬ 
ling program execution one instruction at a time is 
accomplished. 


MT6671 is available through the PET User Group. 
Future revisions will incorporate additional features. It 
will also be available relocated to other areas of memory, 
to allow its use with other programs that reside in 1A00- 
1FFF. Correspondence from interested users is 
welcome. 

Jim Russo, 1421 Pine Valley, Ann Arbor, MI 48104 
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Sample 

of 

trace output 






SR 

AC 

X R 

YR 

SP 

PC 

OP 

-CODE 

DISASSEMBLY 

*0 

PI 

81 

00 

F9 

1 FI 5 

A1 

44 


LDA 

C *64 # X) 

*0 

85 

81 

00 

r 9 

1E17 

A8 



T *Y 


A0 

f»S 

81 

85 

F9 

1 El 8 

4 A 



LS» 


2 1 

4? 

81 

85 

F 9 

1 El 9 

90 

oe 


BCC 

A1E26 

21 

42 

81 

85 

F 9 

1 El B 

4 A 



LS® 


20 

21 

81 

85 

F 9 

1 El C 

BO 

1 7 


BCS 

* 1 F35 

20 

21 

81 

85 

F 9 

ItlE 

C9 

22 


CM® 

= 12? 

A0 

21 

81 

85 

F 9 

1E 20 

F0 

1? 


B e 9 

1 1 F3S 

A0 

21 

81 

65 

F9 

1E 22 

29 

07 


AMD 

= *07 

20 

PI 

81 

85 

F 9 

1 E 24 

09 

80 


0«fA 

= JB0 

AC 

81 

81 

85 

F9 

1 E?6 

4 A 



LS9 


21 

in 

81 

65 

F9 

1E27 

A A 



1 AX 


21 

40 

4C 

85 

F9 

1 E28 

ot 

FE 

IE 

LDA 

SIFFf i X 

21 

62 

40 

85 

F9 

1E2S 

SO 

04 


BCS 

*1 F31 

21 

62 

40 

85 

FS 

1E31 

29 

OF 


A**r» 

» *0F 

21 

0? 

40 

85 

F 9 

1 E33 

CG 

04 


Bwr 

*1 E39 

21 

0? 

40 

85 

F 9 

IF 39 

AA 



I AX 


21 

02 

02 

85 

F 9 

1 E 3 * 

oL 

42 

IF 

LDA 

*1F42 ,X 

A 1 

31 

02 

85 

F 9 

1E3D 

05 

40 


STA 

*60 

A 1 

El 

02 

85 

F 9 

1E3F 

29 

03 


AMD 

= *0J 

21 

01 

02 

85 

F 9 

1E41 

6 5 

41 


STA 

*41 

21 

01 

02 

85 

F 9 

1 E4 3 

9o 



TYA 


A 1 

85 

02 

85 

F 9 

1 E44 

29 

8F 


AMD 

= *BF 

A 1 

85 

02 

85 

F? 

1 E 4 6 

AA 



TAX 


A 1 

es 

85 

85 

F 9 

1 E 4 7 

9n 



TYA 


A 1 

85 

85 

85 

F 9 

1 E 48 

A0 

C? 


LOT 

-*0? 

21 

85 

85 

05 

F 9 

1 E 4 A 

tG 

8 A 


CP* 

s*8A 

A0 

85 

85 

03 

F 9 

1 E4C 

FC 

OP 


8FQ 

*1 F59 


I Figuro 2 






Patches to Commodore- 

MONITOR 

to allow single-step execution. 

076P 

CA 



DE* 



0 7 6 C 

30 

03 


BMl 

*0771 

> replaces instructions 

07 6 E 

4 C 

84 

04 

JNP 

*0484 

y noved fron 0498 

0771 

C9 

54 


CMP 

= S54 

test for T command 

07 77 

CO 

89 



*0?2F 


0775 

78 



SEI 


Interrupt off 

0 7 7 6 

A9 

07 


LDA 

= *07 


07 72 

8 0 

1 A 

02 

STA 

S021A 

l set interrupt vector 

0 7 7 p 

A 9 

95 


LCA 

= 195 

I to 0795 

07 7[ 

8 D 

19 

02 

STA 

*0 219 

/ 

0780 

A 9 

A0 


LDA 

= IAL 


0782 

80 

4 E 

E8 

STA 

SE640 

interval timer enacie 

0 7 8 S 

CF 

13 

E3 

0EC 

*E613 

60Hz interrupt disabled 

0788 

A 9 

27 


LDA 

= *27 

07 8 A 

60 

48 

EP 

STA 


Tinvcr set for 39 microseconds 

07FG 

A 9 

00 

E8 

LDA 

=*oc 


0 7 8 r 

60 

49 

STA 

If 649 

Timer starts counting here. 

0792 

4 C 

EG 

05 

JMf 

*05 CB 

Load registers i qo 

07 ?5 

2U 

F B 

FL 

JSK 

*‘ CF 3 

Set Interrupt to noma) 

0792 

58 



CLi 



0799 

4 A 



LSR 



079* 

4 C 

2E 

C4 

JMF" 

*04?B 

Display reqisters. 

RE AfT. 

• 






• 

04 98 

4 C 

6b 

07 

JMF 

*076B 

Junp into patch 

04 TO 

AS 

90 


L0A 

=*90 

New end-of-prograro value. 
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You love your PET, but wouldn’t you 
love it more with this BigKeyboard? 




The Skyles Big Key Board™. More than 1 5 inches wide. A layout nearly 
identical to the PET Keyboard and with all functions alpha, numeric, ^ 

graphics, special symbols, lower case alpha—on full-sized, almost plump, O 

key-tops double-shot to guarantee lifetime durability. Actual size V_, 

The switching action uses gold cross point contacts; the torsion springs are gold-plated. 

The housing is black anodyzed heavy aluminum. The keyboard assembly and housing have 
drain-holes; to clean the keys of “gookV’ rinse under clear water and let dry. 

Parallel entry and unbelievably easy to install. Connect the PET's keyboard cable to the 
Skyles Big KevBoard. Connect the Skyles cable connector to the main board and to the 
Skyles Big Key Board housing. Now you :an use the Skyles for last, tingcr-casy data entry, 
the original PET Keyboard for hunt-and-peck graphics entry. And you can disconnect 
either keyboard or both-without reopening your PET: just remove the connector(s) 
from the Skyles housing. 

Fully guaranteed, of course: • Use it for ten days. If you don't like it for any reason, 
return it for full refund; no questions asked • Guaranteed for 1 20 days; we’ll repair or 
replace at no charge if the Big Key Board proves defective for any reason short of 
malicious mischief. 

Order the Skyles Big KevBoard now. Enjoy it within days. 


SPRING OFFER 


Be the first on your block to own a 16K PET with a Big KeyBoard. 

And save money while you’re doing it! 


8KB Memory 

Expansion System $250 

74KB Big KeyBoard 125 

shipping & handling S.50 

regular cost S383.50 

SPRING OFFER S350 COMPLETE! 


(Or you can reach to 24k:) 

16KB Memory 

Expansion System S450 

74KB Big Key Boa id 125 

shipping & handling 10 

regular cost $585 

SPRING OFFER S525 COMPLETE! 



* California residents add 6-61/2% sales tax where applicable 
VISA. M ASTF.RCH ARGE ORDERS CALL (800) 227-8398 (except California residents) 

SPRING OFF ER EXPIRES JUNE 21,1979 _ 

10301 Stonydale Drive 

Skyles Electric Works (408) 735-7891 

VISA. MASTERCHARGE ORDERS CALL (800) 227-8378 (except California residents) 




PLOT 


Jerry A. Velders 

Here is a program which I call PLOT, which allows 
high resolution (50 x 80) plotting, driven by machine 
language subroutine, to be easily incorporated into 
BASIC programs. This routine resides in the second 
cassette buffer, where it is safe from commands such as 
LOAD and NEW, and it plots somewhat more quickly 
than an equivalent BASIC routine. The idea and basic- 
logic of the program came from an article by 
F. J. Campbell which appeared in the User Notes in 
Vol. I. Issue 3. Although PLOT is pretty fast, it is 
apparent that most of the time used in iterative plotting 
programs (like a sine wave) is spent doing mathematical 
operations in BASIC. In any case. PLOT is about three 
times faster than the BASIC equivalent, and was fun to 
write. Maybe someone out there can benefit from it. 

I've included an assembly object listing, tediously 
typed by hand because I don’t have a printer yet. and a 
BASIC routine which pokes the code into memory. The 
program works because Commodore provided us with a 
set of 16 graphics characters which allow division of each 
pixel into four quadrants, each of which may be manipu¬ 
lated independently of the others. By assigning one bit 
of a four bit binary number to each quadrant, and using 1 
and 0 to represent on and off, the logical OR function can 
be used to make decisions about which character to put 
into each pixel. 

The basic task is therefore to accept values for X 
(horizontal displacement) and Y (vertical displacement), 
determine which pixel they refer to. determine which 
quadrant of the pixel they refer to, and OR this value 
with the value of the current contents to find the location 
of the next value in the table. 

For ease of understanding, the program can be 
dissected into several discreet sections, as follows: 

033A-0346 

initialization; loads data from TABLE into zero 
page (put there to optimize speed) 

0347-0356 

TABLE; these values are data, representing the 
various graphic symbols associated with high 
density plotting 

0357-0390 

picks up values of X and Y from zero page (where 
put by BASIC) and determines in which quadrant 
of pixel the new square belongs 

0392-03CC 

finds the screen location under consideration, as 
determined by X and Y. and puts the address in 
locations 1 (low) and 2 (high) 

03CE-03E6 

finds the right character from the TABLE and 
puts it into the right location...then returns to 
BASIC 

The best way to understand the operation of the pro¬ 
gram is to read closely through the comments in the list¬ 
ing, checking out the paths it will take under various 


values of X and Y. Please note that there are no built-in 
safeguards for faulty values of X and Y. X must be from 
0 to 79. and Y from 0 to 49. A mistake here probably 
won’t make the PET crash, but can make it try to poke its 
way through memory-, and it makes sense to be careful. 

The areas in memory used by PLOT consist of the 
second cassette buffer (for program storage), the tail end 
of the input buffer in zero page (used for the table and for 
X and Y). and locations 1 and 2. used for the low and high 
address of the screen location being dealt with. You 
shouldn't need to re initialize the routine (SYS826) 
unless there’s a significant use of the input buffer, like 
an input of more than 50 characters or so. or an input 
from an external device like the cassette. 

10 REfl LOADS MACHINE LANG. PLOTTING 
H fcEH ROUTINE INTO SECOND CASSETTE DUFFER 

12 REM TO USE, INITIALIZE U1TH StS826' 

13 REM 

M REM P0KE68,(X VALUE ..0-79) 

15 REM P0KE69,(Y VALUE ..0-49) 

16 REM 

17 REM THEN 'STS855 

18 REM 

19 REM FOR EXAMPLE: 

20 REM 

21 REM 10 SYS826 

22 REM 20 FORX=0T049 

23 REM 30 Y=X 

24 REM 40 PQKE68,X:P0KE69,f 

25 REM 50 SYS855 

26 REM 60 NEXTX 

27 REM 

28 REM 

80 F0RZ=826T0998:REAElA$ 

90 AS = RlGHT»r00"tA4,2):B=0 
95 F0RX= 1T02:CI=HIII1 (AS,X r I) 

100 IFCI>= M A ,, ANDC4< = ,, F"THENC=ASC(CI)-ASC( ,, A“)*10 
110 IFCt/="0"ANDC*<-‘ , 9 , ‘THENC i ASC (Ct )~ASC( *0") 

120 IFX=1THENB=B*C*16:GOTOI40 
130 B=BtC:POKEZ,B 
140 NEXTX 

150 NEXTZ 
160 END 

200 DATA A2,00,BD.47,03,95,4A,EB,EO,10 
210 DATA D0 f F6 f 60,20,6C f 7C l El l 7E,7F r E2 
220 DATA FB f 7B f 62 r FF l FE f 6l,FC,EC,A0 r 18 
230 DATA A5 f 44,09,FE,69,01,85,46,18,A5 
240 DATA 45,09 f FE,69,01,85,47,l8.A5,46 
250 DATA C5,47 r DO,OB,A5,46,DO,13,A9,02 
260 DATA 85,48,4C,92,03,18,A5,46,Ii0,OE 
270 DATA A9,01,85,48,4C,92,03,A9,08,85 
280 DATA 48,4C,92,03,A9,04,85,48,46,44 
290 DATA 46,45,38,A9,I8,E5,45,85,47,A5 
300 DATA 44,85,46,A9,00,85,01,A9,80,85 
310 DATA 02,AO,O0 ,Aj,47,FO,12,I8,Aj,O 1 
320 DATA 69,28,85,01,A5,02,69,00,85,02 
330 DATA C8,C4,47,H0,EE,18,A5,0I.65,46 
340 DAI A 85,01,A5,02,69,00,85,02,A2,00 
350 DATA A1,01,Il5,4A,F0,O6,E8,EO, 10,DO 
360 DATA F7,60,8A,05,48 ,AA.B5,4A,A2,00 
370 DATA 81,01,60 
HEADY. 

There are undoubtedly ways to increase the speed of 
execution of this program. I’m a relative newcomer to 
computing and don’t always know the optimum tech¬ 
niques to use. This is especially true in the screen 
address calculations in this program, in which I used 
successive additions of 40 to determine the screen line. I 
would be appreciative of any suggestions which would 
enhance either the speed or elegance of the program. 

18 continued . 



By the way. I'm composing this article on the Word 
Processor sold by Connecticut Microcomputer, which is a 
very versatile tool for handling text. Although 1 don’t 
have a printer, a friend has a Diablo which I used to test 
the RS232 interface that I bought from CMC to accom¬ 
pany the Word Processor. When the PET and the Diablo 
were connected, everything worked perfectly, and it was 
a little ironic to see an 5800 computer driving a $3300 
printer. Although we were just chugging along at 300 
baud, it was really neat to have the PET write out some 
listings for me. 


ftt first byte frc« TABLE 
store in sero pa ft (input Buffer) 



PICT 



0??A 

M 00 

LCX *300 


o*»3*: 

gr U7 03 

L3A S0)47.X 


o?3? 

05 >*A 

S?A S4A.X 


C 3 s * 1 

1 0 

I« 


o?u? 

SC 10 

C?X F?10 


0>“ 

50 F6 

BNS 5033C 


O'Uft 

so 

RTS 


rth? 

?0 6C 1C 

21 


O-U-3 

?S ir E2 F3 


034* 

72 62 FT TZ 


0353 

61 FC SC 

AO 


0357 

18 

CLC 


035? 

A^ 4* 

L3A Stfa 


C35A 

09 TZ 

oka f.rz 


C55C 

69 01 

a;c » >ci 


C359 

85 *6 

STA 54 ft 


C360 

19 

CLC 


C3d: 

*5 u 5 

l:a :4; 


C 36 ) 

09 TZ 

CPA 'S TZ 


0369 

69 0*. 

AjC *:ci 


c ?£? 

05 1 * 7 

ETA 54? 


C?f 9 

19 

CLC 


0J6 A 

A 5 **6 

LCA 5*6 


036C 

C5 **7 

CNF Sfa7 


036“ 

03?0 

50 09 

45 b 6 

BVS 5037B 

LCA 5*6 


03?2 

50 1) 

»MS 30397 


0) 7 4 

A9 02 

LCA •>02 


03?6 

*5 U8 

S?A >40 


03?f> 

iC Q? 03 

JtlF 50392 


037B 

ie 

CLC 


0J7S 

A5 *6 

IDA 346 


037E 

30 OE 

BNc S038S 


03“0 

4 9 Oi 

IDA *3C1 


0392 

95 63 

STA $48 


038* 

-C 9? 03 

JKF 30392 


036? 

A9 09 

IDA *5C8 


0389 

0< US 

STA S48 


0383 

1»C 9? 03 

JMF S0392 


0392 

A 9 0« 

IDA #304 


0390 

2} U9 

STA 5-8 


019? 

46 Ufa 

IDF $44 


039* 

46 45 

LSB $>*5 


0396 

38 

SEC 


0397 

A9 13 

IDA #318 


0399 

S3 45 

59C S-5 


039B 

95 47 

STA S47 


0390 

A5 4fa 

IDA $44 


039? 

8J 46 

STA S*6 


01AI 

A 9 00 

IDA *300 


03A3 

85 01 

STA SOI 


03A5 

A9 80 

IDA #S80 


03A7 

85 02 

STA S02 


03A9 

AO 00 

ICI #300 


03AB 

A5 47 

IDA S4? 


03 AO 

FO 12 

EE3 40JC1 


o)a r 

13 

CLC 


0360 

A5 01 

IDA 401 


0352 

69 28 

ADC ms 


033fa 

85 01 

STA 101 


0)56 

A5 02 

IDA SC2 


03B6 

69 00 

ADC #$00 


03EA 

85 02 

STA $02 


03SC 

C8 

I NY 


0)B0 

C4 47 

CFY 447 


03 SR 

DO EE 

BN* 403AP 


03CI 

19 

CLC 


03C2 

A5 01 

IDA *01 


03C4 

65 46 

ADC 446 


0)C6 

85 01 

STA 401 


O3C0 

A5 02 

IDA 402 


03CA 

69 CO 

ADC #500 


03CC 

85 02 

STA 12?- 


03CS 

A2 00 

1DX #500 


0300 

A1 01 

IDA <401 .X) 


0)02 

25 

CMF S4A.X 


03-fa 

PO 06 

SE3 $03DC 


0306 

F8 

INC 


0377 

EO 10 

CFX #510 

At** # fNV' 


03:9 
03-B 

CO P7 

60 

BNw ZOJV2 

RTS 


03?C 

8A 

TXA 


0300 

05 48 

ORA 348 


03DP 

AA 

TAX 


0350 

B5 4A 

XA 34A.X 


03Z2 

A2 00 

XX #300 


032fa 

81 01 

STA (SOI.X) 


0326 

60 

RTS 



don* yet* ( 16 v«lua« to wove 
if not done, fo ftX another 
if done, return to BASIC 


test bit lero to determine Lf 
even or odd. 

store result 10 U oacj 2J3 i t e'en) 
f*t ready to add 

ret r valve and do the same thin/ 


ret previously stored values end 

conpare to see if both are even or 

both odd...if not rote o>7B 

if both ease, are thet odd? 

if both even foto 0397 

if both odd. then It's quadrant ? 

store quadrant rrunber 

junp to next section 

..juet to to «af e 

fet value 

if X even and Y odd then Branch 
otherwise, Y even * I odd. tore 
1 as quadrant rubber 
junp to next flection 
X and Y both even. Store quadrant 
nuaber ( 8 ) 

Junp to next section 
quadrant le nunber fa 
store quadrant nuaber 

divide x by 2 

divide Y Qy 2 

pet ready to subtract 

load aec with 24(Cec) r of eern lines 

subtract vert. displacement (Y/2) 

store 

ret horit. displacement (X/2) 
etora 

put tero Ir. acci lat aern addr. low 

store in loc. 1 

load 1 st sem addr. hlrh 

atora in loo. 2 

clear Y re f 

load acc. with line number 
IT zero, rcto nest part 
ready to add 

r»t lo* address of oern Ice 

add 40 (dec) 

pat it back 

ret eern addrea* hifh 

add 0 (insures carry) 

put It bach 

increnent Y rer 

are we at the ripht line yet? 

if rot fo bae* and do it train 

ready to add 

ret low sern addr 

add appropriate X value 

put It fcaek 

ret hlfh sem addr 

add zero to Insure carrv 

put it tack (Iocs- 1*2 point to sern 

loc where character roes) clear X ref 

ret contents of sem location 

coopare with first val in TA2LI 

If equal then roto cjdc 
if not equal increnent counter 
checked all i6 yet? 

if all cheeked, but no match la rsde, 
then return to BASIC.•somethlnr -ronf. 
ret position of matenee val in TAFLt 
lofical 09 with quadrant number 
pat result In X 

fet correspondirf value from TAELS 
clear • 

put value into screen location 
and return to BASIC 


FAST GRAPHICS, ctd. from p. 15 


LISTING 7: Crarhicc Fae Peac Pr:gran 

O RZJ. GRASSICS FAC ED10 PROGRAM Br WARREN V. 5*AN 
10 BA*S«62b:SI.EASE-40:SD.BASE-£3:SW«BASE- lOe^GP.59466 
20 FOKGS. 12; Air- FAST GRXFHIX BY MACHINE LANG. ROUTINES 
30 FRIKT"ii":F0P]i1T0»:SYS SlrSYS SD;PRHtT'\£i"Al:NEXT:G0SUE1003 
faD G05U£200:A|:"Faat Grarblx by Machine Lir. rrTs .off Routices 
JO SY5 SA; POKE GR, lu; SCSU32O0 ; FORI = 1 TO RNDOf) * 10*2C: SIS S* 
:FORJsirO«X):Nm 

60 MEAT:FDFlsO?C255:A*IISRI 1): NEXT: A=USfi(RIKT) *2>6): FORI* <1tiA 
, :SY5 SD 

70 CCSCB50C :N£JiT:FH!«rB|:roRla1T02fa:P*lNlfCOS®B300:riSXl 
60 R£3T3R*:FOKi GR.12.FORI = 1TG4:F0RJ*0CO?;PEA DE(J): N EX 7 
90 rwRi.»0r: ‘3:<A17 59-56,J2.Ji:A-U£RfB(K AM ?)) ; TCRt. 1TC20; Si/” 
:NEXT:NEXT 
10C GOTdO 

200 T; i "[ir.12 i a3":B| ! 1 f .ffe.^dT =PR1RT‘^”; SYS SI 
21C FDPIel"Cl3:SYS SI: FRIRILtFIK Tl. 1 JASLtFTK BS.26-3 }AS; :!iZ£T 
:GC?0100C 

33C F0RJr1 TCI00;NEXT:RETURN 
100C FORK:1T03”3rHIXT:PETUPK 
9O0C DATA 101,64,71,66,93.72.69.103 
90 1C E«7A 10G.C2,70,64(67, 66 ,69■ 99 
932C DiZn 103,£9,72,95,66,71.6-,101 
90JS DAT- 9?,t9,66,67,64,70,82,100 


Ir. tr.lt Hants, ££ Beans clear ecroen, £h Btar.t cursor note, 
xvi rests tr.e revcrcc kev, cff aeana shift of the reverse hev, 
cd aeane cursor doer. [ cr.. 12 cd 1 meant a cursor hoae fellcwod by 
12 cursor down characters, f cfc.Pu tdl aeans a eurser hcae followed 
by ii cursor dosn characters. 

a 


r 


PET 

second cassette 


FEATURES 

-SANYO CASSETTE RECORDER 
WITH COUNTER 

-CUEING—AUDIO LOCATION OF 
PROGRAMS 

-PLAY AND RECORD SENSE 
-INTERFACE MODULE PLUGS 
DIRECTLY INTO CASSETTE PORT 

$69.95 & $3.00 P &H 

INTERFACE MODULE SEPARATELY 
$24.95 &$2.00P&H 

D & R CREATIVE SYSTEMS 
P.O BOX402N 

ST. CLAIR SHORES, Ml 48080 

OEALER INQUIRIES INVITED 
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/JOow The C-BZ LINE WORKS 


C6Z. IS ONE Connection (oF MANY^ TO A 
SPECIAL CHIP INS THE PET CALLED THE 
Versatile Interface Adapter (VIA), 
Commodore part number 6522.. 


^HE VIA APPEARS TO THE 65d2 MICROPROCESSOR TO tiE NOTHING 
MORE THAN A G ROUP OF (MEMORY ADDRESSES, UO DIFFERENT FROM 
ANY OTHER. PAM REGISTERS; ACCEPTING AMD RETURNING 8-S'T 
BINARY NUMBERS UNDER PROGRAM Control. HowevER, iMTEROAL 
CONTROL CIRCUITS /N THE VIA PERMIT 
A NUMBER OF NEAT THINGS TO HAPPEN. 

\?0R INSTANCE, VIA ADDRES5 594 66 

is A SERIAL l to SHIFT REGISTER . 

If you put decimal as im it— 

(poke 59466, 8S) 

IT U)ILL TW6*J COMT^IA? 

C,|fJARY 0 \0\ OtO» . 


if you pore VIA ADDRESS 5946 7 
DITH 16, IT LUILL SET i)P A FREE- 
RUNfoiNC, CONDITION, IN) WHICH THE 
BITS in 59466 ARE SHIFTED ouT 
"endwise" onto the ctJ2 line which, 
IN OUR EXAMPLE, WILL CAUSE C02TO 
Go ALTERNATELY HIGH ANp LOW AS 
THE ONES RND ZEROS do Q,y. \ol) 
CAN HEAR THIS AS A ToNg THROUGH 
AN AMPLIFIER HOOKED UP TO CB2. 


&^HAT PITCH? /Jell, that 
DEPENDS ON WHAT NUMBER IS 
POKED INTO S9464, A VIA 
REGISTER WHICH KEEPS TRACK oF 

the time. -The bigger the 

NUMBER, THE LOWER THE PITCH. 



85, 0 = oloioioi 2 

cbz £ «s juum:;: 5 : 



I5 I0 - O O O o| I I I I ) (half AGAIw} 
(You can see why i?o , 0 fioioioiOj) 
sounds the same us ss (oio ie»oi} 


-O'G 



MISCELLANY 

Roy O 'Brien 

Well, everything else in this issue is put to bed; this 
column is the last thing. It’s been an experience, and 1 
can’t imagine how Gene did it. I offered to help him, 
since I have a connection with a typing-typesetting-office 
services business which is pretty well equipped, but 
without their facilities it's gotta be a difficult job. 

This time around, and probably next, the mailing 
labels arc being done on a copier, but w hen we get one of 
the new printers, they’ll be done via PET cassette files. 
Eventually, 1 hope to have a disc system up. to do both 
the mailing list and word processing. Wc have the CMC 
word processing program (which we’ve never had a 
chance to use) and will be looking for a mailing list 
program. Anybody got any recommendations? 

We ll also be glad to have the printer to do the pro¬ 
gram listings, complete with cursor controls and 
graphics characters. Even in the big magazines, when a 
program is typeset, there are almost always errors, and 
you've got to be pretty experienced (as I am not) to 
debug 'em. It’s hard to beat the idea of having a pro¬ 
gram up and running, cheeked out. then dumping a LIST 
to the printer. Meanwhile, as you can see, we re going 
with whatever the article author sent, as being more like¬ 
ly to be correct than a retyped version. 

Incidentally, as it says elsewhere, if any of the listings 
are too small or unclear, drop a line to get full-size 
copies. One stamp per two-sided sheet will keep the 
books balanced. 


A lot of the User Group mail contains comments or re¬ 
quests regarding machine-language information. We 
bad planned the first of a tutorial scries on machine code 
for this issue, but it got bumped (ironically) by a couple 
of really good machine-language programs. Look for it 
next time. I tend to share Gene’s feelings on not includ¬ 
ing a lot of review's, but will try to do one on the Abacus 
Machine Language Guide. If you’ve got it. I’d appreciate 
a postcard or note with your comments. 

I recently got a chance to fulfill a long-time ambition, 
and attended the April SPHINX meeting. They meet in 
the Mr. Calculator store in dow ntown San Francisco, and 
it turned out to be the same sort of friendly pan¬ 
demonium I’ve become accustomed to at the New Jersey 
Computer Club. Since many of the best programs in the 
NJ Club Library (and the Cassette Exchange) came out of 
SPHINX. I was glad to meet Jim Page, their tape librar¬ 
ian. We’ve agreed to get together soon for a full session 
of cross-pollinating our respective tape libraries. 

While there. I picked up a copy of a flyer by Harry Saal 
(author of MAXIT, among other things), announcing an 
interesting product he’s come up with. It’s a 2K add-on 
ROM. which plugs into the expansion port, and provides 
the following additional commands to PET’s BASIC 
ROM: 

AUTO: enter autonumbering mode, with the PET pro¬ 
viding evenly spaced line number prompts 
APPEND; appends a BASIC program from tape to 
the program in storage—using normal SAVEd tapes 
DELETE: deletes a range of lines as easily as LIST 


DUMP: displays the names and values of variables 

in the symbol table during or after running a 
program 

HELP: used after an error in BASIC to display the 

erroneous line, with the offending taken highlighted 
RENUMBER: renumbers a BASIC program (and all 

references) by specified stepsize 
TRACE: lets you see the line numbers of statements 

as they are executed, in a small scroll window in the 
corner of the screen. Also operates in single STEP 
mode 

Harry calls it the BASIC PROGRAMMERS TOOL KIT, 
and is selling it for $75. If vou want more info, write Palo 
Alto IC’s, 810 Garland Drive, Palo Alto, CA 94303. 

Incidentally, the reason you haven’t gotten a recent 
issue of the SPHINX Newsletter is that they’ve run into a 
temporary snag of some sort. Something to do with the 
funds being deposited with the University Regents and 
red-taped to a standstill. Milt Lee says they expect to get 
something going soon. 


The Cassette Exchange (p. 3) contains KEYBOARD, a 
program originally written by Neil Harris to turn the PET 
keyboard into an organ, later modified by Jim Butterfield 
to include a rccord/playback feature. (By the way, we 
have a little instruction sheet with directions and cutout 
graphics to make an overlay for the PET keyboard which 
gives you the black and white keys in their proper 
positions to go with the program.) Anyway, the program 
aroused my ignorance of music to the point where I 
started shopping around for an instrument to fool with, 
which led to a lot of reading and discussion regarding 
synthesizers. 

Turns out most of them have a simple tone generator, 
which produces the same kind of signal KEYBOARD 
puts out onto the CB2 line, which is then shaped (or bent, 
or broken, if you prefer) by analog circuitry. The shaping 
and filtering of the basic tone is triggered by a pulse 
emitted by the tone generator at the start of the tone. 
Well, if the PET can be made to put out a similar pulse 
on one of its other I/O lines at the start of a tone (as I’m 
sure it can), then a very simple righ will put you into the 
far-out music business. I’ve sent to PA1A for further info 
on their GNOME microsynthesizer, which sells for fifty 
bucks or so, and it looks to me as though it ought to hook 
up to the PET just fine. Will keep you posted. 

The other side of the coin is that the whole analog end 
may be unnecessary, if you have a digital to analog 
(D/A) converter and appropriate software. Had a talk 
with Hal Chamberlin recently, much of which I couldn’t 
understand, but Hal and others who are working in this 
area are looking forward to some interesting develop¬ 
ments. 

Speaking of developments, at the April NJ club 
meeting Joanathan Greif gave me a "preliminar' copy of 
a music program he’s working up. Like KEYBOARD, 
you can record a tunc on the PET keyboard, but when it 
plays back, the screen first shows a blank musical staff, 
complete with G-clef. and as each note is played, it pops 
into its proper place on the staff. Jon says he’s going to 
call it MUSICREADER. but I thing MUSICWR1TER 
would be more appropriate. Boy, I sure hope 
Commodore starts shipping printers soon! □ 
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MEMORY TEST 


Jerry A. Velders 

MTEST is a non-destructive machine language 
memory testing routine which was built around the PET 
but which could be easily adapted to any 6502 based 
machine. In this version the test routine resides in the 
second cassette buffer (HEX 033A or DEC 826) and 
occupies 52 bytes of memory. I am enclosing a BASIC 
program which loads MTEST and then supports its oper¬ 
ation, allowing user specification of starting address; and 
is easily modified to work on any amount of contiguous 
memory. 

The BASIC program loads MTEST and then prompts 
the user for the starting location in decimal, after which 
it jumps via SYS 826 to the test routine. Each consecu¬ 
tive byte is loaded with 0 through 255 and checked to see 
that it reads back correctly. Prior to testing each byte, 
the original contents are saved in location 70(DEC) and 
after the test the contents are restored. This is what 
makes it possible to jump back to the BASIC program 
after the test is complete. Memory locations 1 and 2 
(normally used by the USR statement) are used as in¬ 
direct pointers to the byte being tested, so if a bad byte is 
encountered the test branches back to BASIC, saving the 
address of the bad location in 1 and 2. 

Once the BASIC program is loaded, it is no longer 
necessary to the operation of the test routine, although it 
is a little more convenient. Since the second cassette 
buffer is a protected location you can load and save and 
run BASIC programs while the test routine is tucked 
safely away. To test memory without the supporting 
BASIC program, simply POKE 1 and 2 with the low and 
high addresses of the starting point of the test and 
SYS 826. When control is transferred back to BASIC, 
PEEK locations 1 and 2 for the ending address—which 
will be either the top of memory in you system or the 
address of a bad byte. Pressing any key while the test is 
running will stop the test and transfer control back to 
BASIC. 


5 REN MTEST JERRY A WELDERS 
8 FOR K=826 TO 877:READ D:P0KE K,D:NEXTK 
10 PRINT"ENTER START LOCATION IN DECIMAL" 

15 PRINT“(D0N'T START BELOW 1024)" 

20 INPUT S 
25 PRINT-U0RKIM6... 

30 SH-INT(S/256) 

40 SL-INT(S-(SH*256)) 

45 TI4*"000000“ 

50 POKE I,SL;P0KE 2,SH 
40 SYS826 

45 £N-PEEK(2)«250*PEEK(I) 

70 PRINT"TEST STOPPED AT " ;EN 
80 IF PEEK<2)-32 THEN PRINT "MEMORY OR¬ 
BS T=TI/60 

88 PRINT-EXECUTION TIME =“;T;"SEC0NDS" 

89 PRINT (EM-S)/T;"BYTES/SECOND" 

90 END 

100 DATA 160,0,162,0,161,1,133,70,152,129,1,193,1,208,36 
105 DATA 200,208,246,145,70,129,1,24,145,1,105,1,133,1 
HO DATA 165,2,105,0,133,2,169,0,32,228,255,208,9,165,2 
115 DATA 201.132,240,3,74,62,3,96 
READY. 


0331 

10 OO 

LDY tO 

1 

claar Y r*f(ua*d a* countar for taat data 

033C 

12 00 

L0X HO 

1 

clear X re* 

033? 

11 01 

IDA (l.X) 

1 

load ace with content* cf 1 st test byte 

0340 

85 46 

STA 70 

1 

■tore in ioc. 70 (dec) 

0342 

98 

m 

I 

transfer test nunber to acc 

034) 

81 Ol 

STA (l.X) 

1 

•tore In teat loc 

0345 

Cl Oi 

CMP (l,X) 

1 

compare with original 

0347 

DO 24 

DIG B0)6D 

1 

If byte is bad, return to BASIC 

03“ 9 

ce 

IKY 

1 

if test ok, incrcaent test counter 

03“A 

DO P6 

3KE 80342 

1 

and try it for the next number 

034C 

15 46 

IDA 70 

I 

whan counter returns to O, get original 

034S 

81 01 

STA (l.X) 

1 

contents and restore them 

0350 

18 

CLC 

1 

get ready to increnent test address 

0351 

15 01 

-DA l 

I 


0353 

69 01 

ADC ti 

1 

add l to low address 

0355 

83 01 

STA 1 

1 

and store in loc 1 

0357 

13 02 

LEA 2 

1 


0359 

69 00 

ADC tO 

1 

add 0 to high address 

035B 

85 02 

STA 2 

1 

and store in loc 2 

0350 

19 00 

IXA tO 

1 

clear aec 

035? 

20 24 

PP JSP S7PEU 

1 sea if any keye have been pressed 

0362 

DO 09 

3KE $0360 

1 

If so. return to BASIC 

0364 

*5 02 

IDA 2 

I 

load ace with high addraae 

0366 

C9 84 

CKP f 132 

! 

see if test has eoae to end of aeaory 

0366 

PO 03 

5EQ S0360 

1 

if so. return to BASIC 

036 A 

4C 3E 

03 JMP S033E 

1 If not, teat next addreaa 

0360 

60 

P.TS 

i 

return to BASIC 


Sot* i- Operands are decimal unless preceded by $ (hex) 

- 4 denotes immediate addressing 

- (l.X) denotes indirect addressing. Indexed by X 

- ?ha CMP Instruction In lln* O366 it sat for my eyatea with 

32K of memory . IK oeretn RAM, all contiguous, but works 
OK on the basic 8K FCT without nodiflcatlcn. 

- Teatln# the video RAM (start at 32768) aakee a nice, but 

bri*f, show. 

Pinal not* i Typing thi* out i* a r*al pain. Anybody have any 
Info on interfacing PET with a Singer 230} Flexcwriter? 
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REAL GRAPHICS FOR PET 


How would you like to display some REAL graphics on your PET computer? Real graphics such as 
finely detailed mathematical curves or perspective drawings or computer art or proportionally spaced 
text or whatever directly on the PET screen. Graphics in which each individual dot in a huge 64,000 
dot array 320 wide and 200 high is INDIVIDUALLY controllable. As a bonus, how would you like an 
extra 8K of memory when super graphics were not being used? 

At last the famous MTU VISIBLE MEMORY available to KIM-1 users for well over a year is now avail¬ 
able with an adaptor for the PET. The K-1007 PET-to-MTU adaptor plugs into the PET expansion con¬ 
nector and includes a cable and edge socket assembly which will accept our K-1008-PET Visible 
Memory board. Most all of the assembly can be hidden inside the PET if only the Visible Memory is 
used or the unit can be plugged into our K-1005 motherboardfcard file for further expansion with 
other advanced design MTU boards. Use of the K-1007 does not tie up the PET's expansion port however. 

Besides the bus adaptor, the K-1007 contains video processing circuitry to translate standard 
Visible Memory composite video into the form required by the PET monitor although composite VM 
video is still available for an external CCTV monitor. An on-board latch allows software switching 
between standard PET video and VM video. All necessary operating power is taken from the PET 
transformer but as most of our customers know, MTU boards require very little power for operation. 


K-1008-PET $243.00 K-1007 

ALSO REAL 4 VOICE MUSIC 


By now you have probably heard of the “DAC music system" for the KIM-1 that was pioneered by 
Hal Chamberlin in association with MTU. Up to 4 independent, simultaneous musical voices, each 
with an independent waveform, can be synthesized for true 4-part harmony. While software is the key 
to such performance, our K-1002-3C software package allows most of the potential of the technique to 
be realized on a standard 8K PET. 

We have now redesigned the original DAC board specifically for the PET. The K-1002-2A operates from 
a single 5 volt power supply and includes an accurate 8 bit digital-to-analog converter, sharp 6 pole 
low-pass filter, and audio power amplifier usable with any kind of speaker. The board plugs directly 
onto the PET user port and second cassette port for power yet all signals feed-through to a second 
set of board edge fingers. 


WANT MORE EXPANSION YET? 


I Card File $75.00 K-1016 16K Low Power Memory 

K-1012 24K PROM, PROGRAMMER, I/O, COMM $237.00 
K-1020 Prototyping Board $42.00 


MICRO TECHNOLOGY UNLIMITED 

841 Galaxy Way, P.O. Box 4596 • Manchester, NH 03108 
603-627-1464 




















